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BASE“LI@MIT MEMORY LAYOUT 


STATIC MEMORY CONTAINS : 

1) INTRINSIC COMMON BLOCKS» CONSISTING OF: 
A. OVERFLOW/DIVIDE-BY-ZERO MASKs 
B. STATEMENT NUMBER, | 
C. DEBUG INTERFACE TABLE ADDRESS» 
D. ENVIRONMENT NUCLEUS BLOCK A4CDRESS>» 
EF. SEGMENT DICTIONARY ADORESS> 
F. DATA CICTIONARY ACORESS> 
Ge CODE SEGMENT NUNUER> 
He 1/0 BUFFER» 


Ie OTHER I/0 POINTERS ANC VARIABLES KNOWN TO THE INTERPRETER? | 


Je GTHER COMMON INTRINSIC VARIABLES. 


2) LOCAL DATA BLOCKS» CUNSISTING OF: 
A. RETURN ADDRESS. | 
B. DESCRIPTORS OF DUMMY ARGUMENTS, 
Ce. CGTHER LOCAL DATA» EXCEPT PAGEL ARRAYS 


3) OTHER COMMON BLOCKS AS DECLARED» EXCEPT PAGED BLOCKS. — 


DYNAMIC MEMORY CONTAINS PAGED LOCAL ARRAYS AND/OR EQUIVALENCE 
GROUPS AND FACEG COMMON BLOCKS. TRE PLACEMENT GF THESE IN 
DYNAMIC MEMORY IS DETERMINED SY STZE» WITH DATA PAGES BEING BYTE 
ACDRESSABLE> A DATA ITEM MAY BEGIN AT ANY BYTE ADDRESS. A 
NUMERIC ITEM WILL UCCUPY 4 OR 8 BYTES OF PEROPY. JHE SIZE OF 
MOST O4TA PAGES IS 1024 (C2**10) BYTES» EXCEPT FOR THE LAST PACE 
CF A CATA BLOCK. A DATA eELOCK CONSISTS OF CONSECUTIVE DATA 
PAGES» AS DESCRIBED BY THE DATA DICTICNARY. | 


4 CODE SEGMENT CONTAINS A TRANSFER VECTOR CF VARIABLE LENGTH ~ 
FOLLOWED BY EXECUTABLE CODE CONSISTING OF S-OGPS. ‘SEE BELOW FOR 
FORMAT CF 4 TRANSFER VECTOR. | 
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ALPHABETICAL LISTING 


INSTRUCTION SET 


ABS CABSOLUTIZE) 

acasS ~—=9C CARCCOSINE) 

ADDR 6A (BASE RELATIVE ADDRESS) 

AGO 67 CASSIGNED GOTO) 

4lF 65 CARITHMETIC If) 

AINT 9E (FLOOR) 

ALCG oF CNATUR 4L LOG) 

ALCG10 A). (LOG TO BASE 10) 

AMCD 94 CREMAINDER) 

ASIN 9B CARCSINE) 

ATAK 9D CARCTANGENT ) 

BAT 88 (BUILD ARRAY TABLE). 

RAAT &C (BUILD ASSUMED SIZE ARRAY TABLE) 
ENRY 81 CGET BINARY INPUT) | 
BUMP AZ C BUMP) 

CALL 70 CSUBROUTINE CALL) 

CAT 78 CCHARACTER CONCATENATICN) 

CATD 79 (CHARACTER CONCATENATICN WITH CESCRIPTOR) 
CGO 66 (COMPUTED GOTO) | | 
COMM 7C (COMMUNICATE) | 

cos 96 (COSINE) 

COSH 99 CHYPEREOLIC COSINE) 

CREL SE CCHARACTER RELATION) 

CRIF SF (CHARACTER RELATIONAL IF) 

CS aD (COMPUTE SUBSCRIPT VALUE) 

CSB 8E CCS AND CHECK BOUNDS). 

CSV BF (CS hITH ARRAY TABLE» ALSO CHECKS SOUNDS) 
CAOD 50 (DOUELE ADD) 

CBL 57 (DOUBLE PRECISION) 

CCAL 71 (COYNAMIC SUBROUTINE CALL) 

DDIV 53 (DOUBLE DIVICE) | 

CESC 6B (MAKE DESCRIPTOR) 

OMOVE C2 CMOVE COUBLE WORD) 

DMUL 52 (DOUELE MULTIPLY) 

CO.UF 90 (DO LOGP UPDATE) 

CREL 5C€ (DOUBLE RELATION) 

CRIF 50 (DOUBLE RELATIONAL IF) 

CS TF CDISCONTINUE JOB) 

CSUB 51 


COCUELE SUBTRACT) 


EXP 


FANC 

FADD 

FAMMN 
FAMMR 
FAMRM 
FAMRR 
F ARMM 
FARMR 
FARRM 
FARRR 
FOIY 

FOMNM 


FOMMR 


FOMRM 
FDMRR 
FDRMM 
FORMR 
FORRM 
FORRR 


FLOAT 


FMMMM 
FMMAR 
FMMRM 
FMMARA 
FMRMM 
FMRMR 
FMRRM 


FMRRR 


FMUL 
FREL 
FRIF 
FSPRMM 
FSMMR 


FSPRN- 


FSMRR 
FSRMM 
FSRMR 


FSRRM 


FSRRR 
FSUB 


COTO 
HMON 
IADD 


TAMMM 
TAMMR 


IAMRN 


TAMRR 


TARMM 
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CEXPONENTIAL) 


CFE TCH AND CLEAR ERROR CONDITION) 
CREAL ADD) 

CREAL ADD ~- MEM>PEPM PEM) 
CREAL 4DD = MEMeoMEMPREG) 
CREAL ADD = MEM,REC FER) 
CREAL ADD ~- MEMREGSREG ) 
CREAL ADD - REGoMEM>MEM) © 
CREAL ADD = REG»MEM,REG) 
CREAL ADD - REGsREG» PEM) 
CREAL ADD - REG»REC REG) 
CREAL DIVIDE) 

(REAL DIVIDE - MEMsMEM> MER) 
CREAL DIVIDE - MEM» MEM>»REG) 


CREAL DIVIDE - MEM>REG> MEM) 


CREAL DIVIDE - MEM>REG»REG) 
CREAL DIVIDE - REG» MEM MEM) 
CREAL DIVIDE - REG»MEM»REG) 
CREAL DIVIDE - REG»REG> MEM) 
CREAL DIVIDE -. REGoREGPREG) 
(CONVERT FRO INTEGER TO FLOATING) 


CREAL 


CREAL 


CREAL 
CREAL 
CREAL 
(REAL 
CRE AL 
CREAL 


~~ CREAL 


CRE AL 
CREAL 


CRE AL 


CREAL 
CRE AL 


CREAL 
 CREAL 


CREAL 


CRE AL 


CREAL 
CREAL 


MULTIPLY 


MULTIPLY = 


MULTIPLY 
MULTIPLY 
MULTIPLY - 
MULTIPLY ~ 
MULTIPLY - 
MULTIPLY - 
MULTIPLY) 

RELATICA) 

RELATICNAL 
SUBTRACT - 
SUBTRACT - 
SUBTRACT - 
SUBTRACT - 
SUBTRACT - 
SUBTRACT -~ 
SUBTRACT - 
SUBTRACT - 
SUBTRACT) 


MEM»MEM>»MEM) 
MEM» MEMsREG) 
MEMPREGe MEM) 
MEMeREG REG) 
REG» MEM»MEW) 


REGe MEMPREG) 


REGeREGsMEM) 
REG»REG»REG) 


IF) 

MEM» MEM»MEM) 
MEM»>NEM,REG) 
MEM»sREG»MEM) 
MEM»sREG REG) 
REG» MEM»MEM) 
REG»MEMeREG ) 
REGeREG MEM) 
REGeREG»REG) 


CUNCONDITIONAL BRANCH) 


CHARDWARE MONITOR) 


CINTEGER 40D) 

CINTEGER ADD - MEN, MEM>MEM) 
CINTEGER ADD - MENsMEM*REG) 
CINTEGER ADD ~ MEM»REG> NEM) 
CINTEGER ADD - MEM>REG»REG) 
CINTEGER ADD - REG» MEM» hEM) 


TARAR 
TARRK 
IARRR 
IDIv 

IDMMM 
IDMMR 
ID MRM 
IDMRR 


IDRAM 


IDRMR 
IDRR¥ 
TORAKR 
IF Ix 


IM*MM 


IMMMR 
IMMRM 
IMMR A 
IMRMM 
IMRMR 
IMRRM 
IMRRR 
IMUL 


INSERT 


TREL 

IR IF 

IS sé 
ISMAR 
IS*¥RM 
IS*RKR 
ISRM*¥ 
ISRMR 
 ISRR* 
ISRAR 
ISUB 


LB 
LCR 
LEN 
LIF1 
LIF 
LNQT 
LOAD 
LOG 


MOVE 
WOVE 
NVC 


NEG 
NEXT 


PASS 
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CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
(CONVERT 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
(INTEGER 
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ADD - REG» FEMsREG) 
ADD = REG sREG» MEM) 
ACD - REGsREGsREG) 
DIVIDE) 

OIVIOE - MEM>MEMS,MEP) 
OIVIDE - KEMsPhEY,REC) 
DIVIDE - FEM» RECoMEM) 
DIVIDE = MEM,FEE »REG) 
DIVIDE ~ REG» PER PER) 
DIVIDE = REC»PEM,RFEG) 
DIVIDE - RECoREC MEP) 
DIVIDE REG»RECPREG) 
FROW FLOATING TC INTEGER) 


MULTIPLY - 
MULTIPLY - 
MULTIPLY - 
MULITPLY - 
MULTIPLY ° 
MULTIPLY - 
MULTIPLY 
MULTIPLY - 
MULTIPLY) 


CINSERT 8ITS) 


CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 
CINTEGER 


RELATION) 

RELATIONAL 
SUBTRACT - 
SUBTRACT - 
SUBTRACT - 
SUGTRACT - 
SUBTRACT - 
SUBTRACT - 
SUBTRACT = 
SUBTRACT 

SUBTRACT) 


(LOCAL BASE) 
(LOAD COMMUNICATE REPLY) 
CCHARACTER LENGTH) © 
(LOGICAL IF »i-QPERAND) 
(LOGIC4L IF »2-OPERANCS) 
(LOGICAL NOT) 

CLOAD REGISTER) 


CLOGIC 4L 


RELATION) 


CMOVE MEMORY) 
CMOVE SINGLE WORD) 
CMHOVE CHARACTER) 


CCHANGE SIGN) | 
CEXAMINE NEXT CHARACTER) 


(PASS CESCRIFTOR) 


(GET REAL VALUE) 


PEM>MEMs PEM) 
MEMS PEM SREE ) 
ME*> REG »PEM) 
WEMs> FEC» REC ) 

REG oMEMoPMEM) 
REC »oPEMPREG ) 


- REC» hEE » MEM ) 


REG»FEG»FEG) 


IF ) 

MEMePEMe PEM ) 
MEP > PEN PREG) 
MEM,>FEG > PEM) 
FEM ,REG»/REG) 
REG» PEM sPEN ) 
REG» MEM, REG) 
REC »hEC oe PEM ) 


- REC>+REG REG) 
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RMOVE 
FIN 


SAVE 
SFCL 
SFRIN 
SIGA 
SIN 
SINK 
SNGL 
SPAM 
SORT 
SSTL 
SSTR 
STC 
STMA 
STORE 


TAN 


TANH 
TIME 


VD 
WEF 
WFF 
wID 
WIF 


XTRACT 


Q4 
72 
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(MOVE REGISTER) 


CSUBROUTINE RETURN) 


CSAVE REGISTERS) 

CSTATEMENT FURCTION CALL) 
(STATEMENT FUACTION RETURN) 
(SEARCH FOR GPTIONAL SIGN) 
(SINE) 

CHYPERBOQLIC SINE) 

CCONVERT FROPW DOUBLE TC SINGLE PRECISION) 
CSCRAMBLE ANC PROVIDE ARGUMENTS) 
(SQUARE ROOT) 

(SUBSTRING MCVE) 

CSUBSTRING DESCRIPTOR) 

CSTORE CHARACTERS) 

(FORTRAN STATEMENT NUMBER) 
(STORE REGISTER) 


CTANGENT) 


CHYPEREOLIC TANGENT) 


(PROCESSOR TIME) 
(VALIDATE DESCRIPTOR) 
CWRITE E-FORMAT) 
CWRITE F-FORMAT) 
CWRITE INTEGER DIGITS) 
CWRITE I-FORWAT) 


CEXTRACT BITS) 
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LISTING BY NUMERIC OP-CODE (WITHIN S-OP GROUPINGS) 


co CINVALID) 

01 MOVE (MOVE SINGLE WORD) 

G2 DMGVE (MOVE COUBLE WCRO) 

03 CINVALID) 

C4 RMCVE CMQVE REGISTER) 

05 STCRE CSTORE REGISTER) 

06 LOAD CLOAO FEEISTER) 

07 WM CVE CMCVE MEMORY) 

C8 IADD CINTEGER ACD - SS»SS>*SD) 

09 ISUG CINTEGER SUBTRACT = £Se585SD) 

OA IMUL CINTEGER MULTIPLY - $S»*SS>SD) 

CB IDI¥ CINTEGER DIVIDE - SS»SS»SD) 

CC FACD (FLOATING ADO - SS»SS,SD) 

OD FSU8 CFLOATING SUBTRACT - SS»SS»S0) 

OE FMUL (FLOATING MULTIPLY - SS»SS»SD) 

OF FOIV CFLOATING DIVIDE - S£sSS>S0) 

10 IAFRR CINTEGER ADD - REG»REG>REG) 

i1 IARRM CINTEGER ADD - REG»REG» MEM) 

12 IARMR CINTEGER ADD - REG» MEM,REG) 

13 TARMM CINTEGER ADD - REG» MEM> MEM) 

14 IANRR CINTEGER ADD - MEMoREGeREG) 

15 1A®RM CINTEGER ADD - MEM»REGs MEM) 

16 [AFMR CINTEGER ADD - MEM» MEM>REG) 

17 1A¥MM CINTEGER ADD - MEMsME Mo MEM) 

18 ISAFRA CINTEGER SUBTRACT - REC»REC»REG) 

19 ISARN CINTEGER SUBTRACT - FEGoREC>MEM) 

1A ISRMR CINTEGER SUBTRACT - REG»MEM>REC) 

18 ISRMM CINTEGER SUBTRACT = RECoPE > PER) 

1C ISPRR CINTEGER SUBTRACT - MEM >REG*REC) 

1D 1S*RM CINTEGER SUBTRACT - FEM>FEC>MEM) 

1E ISMMR CINTEGER SUBTRACT - PEMoMEMSREEC) 

1F IS *MM CINTEGER SUBTRACT - MEMe EM» MEM) 

20 IMRRR CINTEGER MULTIFLY - REG»RECG»REG) 

21 IMRRM CINTEGER MULTIPLY - REG»REC»MEM) 

22 IMRMR CINTEGER MULTIPLY - REG» hEP»REE) 

23 INRMM CINTEGER MULTIPLY = REG» MEW» ME) 

24 IN*RR CINTEGER MULTIPLY - FEM*REE>REG) 

25 IM ¥RM CINTEGER MULTIFLY - MEMO REG OME) 

26 IMWMR CINTEGER MULTIFLY - MEMS MEMSREC) 
CINTEGER MULTIPLY - 


MEM>REMoNEM) 
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28 


IDFRR CINTEGER DIVIDE - REG »REG »REG) 
29 IORRM CINTEGER DIVIDE - REC»oREG > MEM) 
28 IDFMR CINTEGER DIVIDE = REC>HWEPM,REG) 
26 ID RM M CINTEGER DIVIDE ~ REGoMEM> PEM) 
2C IDO FRR CINTEGER DIVIDE = MEM sREC»REG) 
20 ID RM CINTEGER DIVIDE - MEM» REG» PEP) 
2E IO¥MR CINTEGER DIVIDE - MEP>NEM > REG) 
2F IO ’MM CINTEGER DIVIDE - MEM»MEM> MEM) 
30 FARRR CFLOATING ADD = RECG»sRECSREEG) 
31 FARRM (FLOATING ADD = REGsREG»¥EM) 
272 FARMR CFLOATING ADD = REGoPEM>REEG) 
23 FARMM (FLOATING 4DD REG» MEMsMEP) 
a4 FAPRR CFLOATING ADD MEMSRECSREG) 
35 FAPFRM CFLOATING 4DD - PEMsFECoMEM) 
36 FAMMR CFLOATING ADD - MEM»>PEMSREG) 
27 FANMM CFLOATING 40D = MEM>PEM»PEN) 
38 FSRRR CFLOATING SUBTRACT - REG»REGPREG) 
39 FSRRM CFLOATING SUETRACT - REGsREG» PEM) © 
za FSRMR CFLOATING SUBTRACT - REG» MEM>REG) 
38 FSRMM CFLOATING SUBTRACT = REGoMEM> MER) 
3C FS*RR (FLOATING SUBTRACT = PEMSREG» REG) 
(- 20 FSMRM CFLOATING SUBTRACT - MEM>REGo MER) 
a! 3E FSMMR CFLOATING SUBTRACT - MEMoMEMSREG) 
3F FS*MM CFLOATING SUBTRACT - MEM>MEM, MEM) 
40 FMERR CFLOATING MULTIPLY - REG»REG»REG) 
41 FMRRM CFLOATING MULTIFLY = REG»REGo MEW) 
42 FMRMR CFLOATING MULTIPLY - REG»MEMPREC) 
43 FMEKMM CFLOATING MULTIPLY - REG» MEM» MEN) 
44 FMMRR CFLOATING MULTIPLY - MEM»sREGs»REG) 
45 FMMRM CFLOATING MULTIPLY = MEM»REGs PEM) 
46 FMPMR CFLOATING MULTIPLY MEM,» MEMSREG) 
47 FUN MM CFLOATING MULTIPLY = MEM>MEM>MEM) 
4& FDORRR CFLOATING CIVIDE - REG»REG»REG) 
49 FORRM CFLOATING DIVICE - KEG»REGo MEM) 
4a FORMR CFLOATING DIVICE = REG» MEM,REG) 
468 FORMM CFLOATING DIVIDE - REG» MEM»NEM) 
4C FONRR (FLOATING OIVICE = MEM»REG oREC) 
40 FORM CFLOATING CIVIDE - MEMoREGo MEM) 
4E FOVMR CFLOATING CIVICE - ME*P/MEM,REG) 
4F FOeMM (FLOATING OLVIDE - MEMoNEM>MEM) 
50 DADO CDOUBLE PRECISION ADD) 
cl DSUBE CDOUBLE FRECISION SUBTRACT) 
C2 DMUL (DOUBLE FRECISION MULTIPLY) 
53 DDIv COGUBLE PRECISION DIVICE) 
AZ BUMP (BUMP) 


call 
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CINTEGER RELATION) 


58 IREL | 

oo IRIF CINTEGER RELATIONAL IF) 
SA FREL CFLOATING RELATION) 

5 FRIF CFLOATING RELATIONAL IF) 
sc DREL CDOUBLE RELATICN) 

50 DRIF CDOUBLE FELATICNAL IF) 

60 LOG (LOGICAL RELATION) : 
61 LIF2 CLOGICAL IF - 2 OPERANDS) 
62 LNCT (LOGICAL NOT) 

é 3 LIF1 


(LOGICAL IF - 1 OPERANC) 


64 GOTO (BRANCH UNCONDITIONAL) 
65 AIF CARITHMETIC IF) 

66 CGC CCCOMPUTED GOTO) 

67 4cc 


CASSIGNED €O TO) 


TYPE ANC SIGN CONVERSION srOps 
54 FLCAT CCONVERT FROM IATEGER TO FLOATING) 
ae IF 1X CCONVERT FROM FLOATING TC INTEGER) © 
56 ENGL (CONVERT FROM COUBLE TO SINGLE PRECISION) 
oh DBL CCONVERT FROM SINGLE TO COLSLE FRECISION) 
68 ABS CABSOLUTE VALUE) | 
69 NEG (CHANGE SIEN) 

SUBSCRIPT VALUE COMPUTATION S-OFS 


ea VD (VALIDATE DESCRIPTOR) 

&B BAT (BUILD ARRAY TABLE) ro: | 
eC RAAT (BUILD ASSUMED SIZE ARRAY TABLE) 
eD CS CCOMPUTE SUBSCRIPT VALUE) 

&E CSE CCS WITH BOUNDS CHECKING) 

eF csv 


CCS WITH ARRAY TABLE» ALSO CHECKS &OUNDS) 


2-8 


BURROUGHS CCRFORATION | | COPPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP BL€0C/B170C FORTRAN77 S-LANGUACE 
SANTA BARBARA PLANT FeoSe 2222 2749 (B) 


ae op —- aw 


$0 DO.UP CUPOATE CO LOOP) 


pad CREL CCHARACTER RELATIONAL) 

oF CRIF CCHARACTER RELATIONAL IF) 

6c LEN CCHARACTER LENGTH) ~ 

(6 SSTR | CSUBSTRING DESCRIPTOR) 

77 SSTL CSUBSTRING MOVE) 

78 STC  CSTORE CHARACTERS) 

19 CATO CCONCATENATION WITH CESCRIFTOR) 
7A KYC | CMOVE CHARACTER) 

78 CAT CCONCATENATION) 


6D SAVE CSAVE/RESTORE REGISTERS) 

6E LB (LOCAL 8 4SE) 

6F PASS CPASS DESCRIPTCR) 

70 CALL (SUBROUTINE CALL) 

71 DC aL (DYNAMIC SUBROUTINE CALL) 
72 RTN (SUBROUTINE RETURN) 

73 SF CL CSTATEMENT FUNCTION CALL) » 
74 SFRIN CSTATEFENT FUNCTION RETURN) 


75 SP 4M CSCRAMELE 4NO FROVIDE ARGUMENTS) 


91 ST MN 6 CFORTRAN STATEMENT NUMEER) | 
92 HMON CHARDWARE WONTTOR) # 


EURROUGHS CORPORATION 
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6A ADDR 
6B DESC 
78 STC 

7C coMM 
70 LCR 

7E TIVE 
7F DS 

e0 WIC 

el = ENRY 
e2 SIGN 
a3 REAL 
84 NEXT 
e@5 WEF 

a6 WEF 

e7 FANC 
&8 XTRACT 
@9 INSERT 
93 WIF 


(BASE RELATIVE ADDRESS) 
(MAKE DESCRIPTCR) 

(STORE CHARACTERS) 
CCOMMUNICATE) | 
(LOAD COMMUNICATE REPLY) 
(PROCESSCR TIME) 
(DISCONTINUE JCB) 

CWRITE INTEGER DIGITS) 
(GET INTEGER INPUT) 

(GET OPTIONAL SIGN) 

(GET FLOATING INPUT) 
CEXAMEINE NEXT INPUT) 
CWRITE E-FORMAT) 

CWRITE F-FORMAT) 


CFETCH AND CLEAR ERRCR CCNCITICA) 


CEXTRACT BITS) 
CINSERT EITS) 
CWRITE [-FORMAT) 


F.S. 
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CPS a942 - @A2a MAY ALSC BE USEC AS PRIVILEGED CPERATCORS bITH THE 


(STD_SOURCE... 
DESCRIBED UNDER 


FCRMAT: PRIV 
STO_DESTINATICN). 


<DESIRED FUNCTION? 
THESE OPERATORS ARE 


TRIGONOMETRIC AND OTHER FUNCTIONS. 


NCTE: ALL OF THESE OPERATORS MAY ALSO EEF 


CPERATORS. 
94 AMOD 
95 SIN 
96 cos 
97 TAN 
98 SINH 
99 COSH 
9A TANH 
96 ASIN 
9C AcOS 
9D ATAN 
9— AINT 
oF ALOG 


(REMAINDER) 
—CSINE) 

(COSINE) 

CTANGENT) | 

CHYPERBOLIC SINE) 

CHYPERBOLIC COSINE) 


(HYPERBOLIC TANGENT) 


CARCSINE) 
CARCCOSINE) 
CARCTANGENT) 
(FLCOR) _ 
(NATURAL LOG) 


USED AS 


PRIVILEGED 


bi? - 
7 se 
A2 


aA4a 


* 
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—4LOG10 (LOG TO BASE 16) 
SORT CSQUARE ROOT) 
EXP — CEXPONENTIAL) 


- aFFa CINVALIC) 


NOT IMPLEMENTED 
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FORMATS. 
REGISTERS 
SCRATCHePAD ASSIGNMENTS 
A B 

iS | TEMP.HI { TEMP.LC. { 

14 | ITEMP | 1 SCRATCH. 3 i 

13 1 SCRATCH.S ; SCRATCH.G i 

12 1 CODE.SEG.NUMBER t SCRATCH.4 i 

11 1 SCRATCH ' IX“REG 11 ' 

10 | DATA.DICT.BASE I IX“REG 16 { 

9 1 BR.REG 4 IX“REG 9 1 

8 I LOCAL»DAT4»BLOCK 4 IW=“RECG 2 i 

pray 74 TRANSFER.VECTOR ¢ CSB 3 IX“REG 7 i 
AY 6 1 ‘NEXT INST.PTR | IX“REE 6 { 
5 | ACCeS CHI) { IX“REG 5S CACC.-5 LO) 1 

4 4 ACCe4 CHI) { IX“REG 4 CACC.4 10) 1 

34 ACC.3 CHI) i IX“REG 3 CACC.3 LO) | 

24 ACC.2 CHI) " IX“REG 2 CACC.2 LO) 1 

11 ACC.1 CHI) \ IX-REG 1 (CACC.1L0) 1 

ot SCRATCHeL 1 SCRATCH.2 4 


“LOCATED | BETWEEN BASE“LIMIT AREA CAT A BASE- RELATIVE ADDRESS)» 
TRIS INFORMATION CONSISTS OF SIX BITS. 


AT BYTE ADDRESS 27, FOLLOWING @ FILLER OF E112)» ARE THE SUX 
BITS AS FOLLOWS: a ea | ; 


FIRST @IT IS SET IF AN OVERFLOW CONDITICANS OCCURS 

SECOND BIT IS SET IF AN EXPONENT UNDERFLCOK CONDITION. OCCURS. 
THIRD G1T IS SET IF A DIVIDE-B8Y-ZERO CCACITION GCCURS. 
FOURTH BIT IS SET IF OVERFLOW IS PERMITTED. © 

FIFTH @1T IS SET IF UNCERFLOW IS PERPITTIED. 

SIXTH BIT IS SET IF DIVIDE BY ZERO IS PERMITTED. 


Soe eR Org BI Ene ese en 0 PERE Mon Se sas ge eR ee 


S22 
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VALUES 
INTEGER | : | 
TWOS COMPLEMENT INTEGER BITC22) 
LOGICAL | 
FALSE = O» TRUE = NOT 0 : E1122) 
REAL 
SIGN BITC1) 
EXPONENT CEXCESS 643 RADIX 16) BITC(7) 
MANTISSA EITC24)_ 
DOUBLE PRECISION _ 
SIGN | | EITCL) 
EXPONENT CEXCESS 643 RADIX 16) PITC(7) 
PANTISSA BIT(56) 
CHARACTER | 
BYTE | | :  EITCe) 
EXTERNAL _CCDE_ADDRESS | 
FILLER — BITC4) 
SEGMENT_NUMBER | BITC10) 
BIT DISPLACEMENT INTO SEGMENT = = BITC18) 
LOCAL DATA BLOCK 
32 BITS 48 BITS 48 BITS 32 BITS EACH 
1 RETURN ADDRESS 1 ARGL 1 ARG2 § oes 1 LOCAL VARIABLES 1 
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SUBROUTINE LINKAGE MECHANISS 


A 48°BIT ARGUMENT DESCRIPTOR {5S BUILT USING THE "PASS" S-OP FOR 
EACH ACTUAL ARGUMENT PASSED. 


EXECUTICN OF THE "CALL" S“CP IN TEE CALLING SUERCLTINE WILL 
UFDATE THE RETURN“ADORESS FIELD OF THE LCACAL DATA BLOCK 
ASSOCIATEO WITH THE CALLED SUBROUTINE AND CONTRCL [3S PASSED TO 
THE CALLED SUEROUTINE. 


EXECUTION OF THE “RIN™ S-OP IN THE CALLED SUBROUTINE WILL USE THE 
RETURN ADDRESS INFORMATION IN ITS LCCAL DATA BLCCK TG GET BACK TO 


THE CALLING SUBROUTINE. THE RETURN-ADDRESS FIELC IS CLEARED 
EEFORE CONTROL IS REVERTED BACK TO THE CALLIAG SUBROUTINE. 


LAYOUT TABLE 
THE LAYCUT TAELE CONTAINS NAMES AND TYPES OF VARIABLES. 


FOR EACH SUBRCUTINE AND COMMON BLOCK (CCEER In & BLOCK DATA 
SUBPRCGRAM ONLY)» THERE WILL BE AN ENTRY CF THE FORMAT: | 


NAME OF SUBPROGRAM CHARACTER (6) 
aTv_ENTRIES | FIT ( ®@) 
#SYMBOL_ENTRIES BIT (20) 
ADDRESS OF LOCAL DATA BLOCK EIT (20) 
Tv? SCa#TV_ENTRIES) CHARACTER (6) 
SYMBOLSC#SYMBOL_ ENTREES) WITk THE FORMAT: 
NAME | | ss CHARACTER (6) 
LENGTH BIT € @) 
ARRAY_VARIANT BIT € 1) 
TYPE EIT ¢ 3) 
INDIRECT_VARIANT BIT € 1) 


—BLOCK-RELATIVE ADDRESS EIT (19) 


WHERE LENGTH WILL HAVE A YALUE OF ZERO FOR A 
NON“=CHARACTER SYMBOL AND TYPE ®AY HAVE ONE OF 
THE FOLLOWING VALUES: 


INTEGER 
REAL 

DOUBLE — 
COMPLEX 


WN 
hou tea 
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5 = LOGICAL 
6 = CHARACTER 
? = LABEL 


SYMBCLSCASYMSOL_ENTRIES) MAY ALSO HAVE THE FOLLOWING 
FORMAT IF THE PRECEEDING ENTRY DESCRIBES AN ACTUAL 
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FS. 


ARRAY CARRAY_VARTANT ON AND INOTRECT_VARTANT OFF): 


NUMBER OF OI MENSIONS 


EIT € 3) 
NUMBER OF ELEMENTS BIT (17) 
LOWER BOUND OF 1ST OIN. RIT ¢ @) 
UPPER BOUND OF LST OIM. BIT (12) 
LOWER BOUND OF 2ND DIN. BIT € 8) 
UPPER SOUND OF 2NOD DIN- PIT (12) 
LOWER BOUND OF 3RD OIM. gIT € 8) 
UPPER BOUND OF 3RD DINe BIT 


(12) 


THE FIELD OF NUMBER OF DIMENSIONS WILL BE EQUAL 

TO ZERO IF THERE ARE MORE TRAN 3 DIMENSIONS OR 
IF THE vALUES CF LOWER AND/SOR UPPER BOUNDS EXCEEC 
THE SIZES OF THEIR RESPECTIVE FIELDS. | 


TV'S IS AN ARRAY OF TRANSFER VECTOR [TEKS HAVING THE NUMBER OF 
ELEMENTS AS SPECIFIED BY #TV_ENTRIESS THIS INFORMATION WILL BE 
USED EY RUN-TIME INTERACTIVE LEBUGGER (RAID)~ | | 


SYMBOLS IS AN ARRAY OF SY*¥BOCLS HAVING THE AUMEBER CF ELEMENTS AS 
SPECIFIED BY @#4SYMBOL_ENTRIES» AND IS USED BY THE DUPP ANALYZER. 


TRANSFER R VECTOR 

LEAGTH CF TRANSFER VECTOR BITC24) 
SEGMENT_DISPLACEMENT_CODE_ADDFESSCES) . 3 | 
CNUPBER OF CODE ADDRESSES VARIES» 0 INCLUDED] oO 
FILLER CWITH VALUE CF ada) BITC 4) 
6 CODE_SEGMENT_NUMBER BITCLd) 
BIT DISPLACEMENT INTO SEGMENT BITCL&). 

BLOCK ADDRESS (MAY BE LCCAL DATA BLCCK AAC/OR 
| COMMON BLOCK ADDRESS) | — ae 
FILLER CWITH VALUE OF 28002) ~BITCL12) 
BASE“RELATIVE BLOCK ADDRESS BIT(20) 


(BYTE OFFSET) 
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THE TRANSFER VECTOR IS ZERO-RELATIVE> BEGINNING AT TRE RIGHT 
WHERE THE FIRFST S-GP STARTS. ENTRY ZERC CF THE TRANSFER VECTOR 
WILL ALWAYS BE THE LOCAL DATA BLOCK ADDRESS. CTHER ENTRIES May 
EE EITHER CODE ADDRESSES OR COMMON BLOCK ADDRESSES» WHICH MAY &E 
INTERMIXED IN THE TRANSFER VECTOR. 


24 BITS 32 BITS EACH 22 BITS EACH 32 BITS 


| TV { CCMMON lb wee | CODE fees FT LOCAL CATA |! S-GPS ... 
1 LENGTK #§ BLK ADDR I 1 ADDRESS 1! ' BLOCK ACCK I | 


TVOND TVCT) «= TvGaD TvVCO) 


ASSIGNED GQTO AND FORMAT TABLE 


ASSIGNED GOTO AND FORMAT TABLE IS AN ARRAY CF N ELEMENTS WHERE 
(N-L) IS THE NUMBER OF UNIQUE LABELS ASSIGNED IN 4 PROGRAW UNIT. 


EXECUTABLE STATEMENT LABEL ENTRY FORMAT: 
FILLER | a BITC 8) 
(CODE ADDRESS (SEE DESCRIPTION IN ADDRESS SECTION) B1T(24) 
FORMAT STATEMENT LASEL ENTRY FORMAT: 


BYTE CFFSET INTO LOCAL DATA BLOCK oe BIT(32) 


A SAMPLE TAELEs AS CONSTRUCTED BY THE CO¥PILER> WOULD LOOK AS 
FOLLOWS (SEE SAMPLE FORTRAN CODE BELOW) = .: 


COMPUTER SYSTEMS GROUP 
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‘€7-°> COLUMN 1 = 32 BITS ------- > <== COLUMN 2 = 32 BITS -----> 
' / 7 41 < ROW 1 UNUSED > 


1oL1COccCoCcCacoooNCOCOCaNOCOCOCONO! CODE 40CRESS FCR LABEL S 
(1100060000000000000000090000000000! DATA ADCRESS FCR FORMAT 15 
HOOLCOOCODDDCDOODOCOCGOUDOCGCOCCOG! CODE ADCRESS FOR LABEL 10. 
PLN OCOCOCACOOCNDDOCONCDONNDDCOO0CO! DATA ACCRESS FCR FORMAT 20 


THE VALUE IN THE FIRST ROW FIRST COLUMN IS THE TOTAL NUMBER CF 
CODE ADDRESSES AND FORMAT LABEL ADDRESSES IN COLUMA 2. | | 


TRE FIRST BIT OF EACK ARO IN COLUMN 1 WILL EQUAL O CFOR CODE 
ACDRESSES) OR 1 CFOR FORMAT LABEL ADDRESSES). 


NCTE THAT FOR FORMAT LABEL ADDRESSES» ALL BITS IN COLUMN 1 ARE 
ZERO EXCEPT THE FIRST. THIS ZERO AREA IS THE AREA POINTED TO BY 
OP.3 IN THE ASSIGNED GOTO OP» BUT OF.3 DOES ACT EXIST FOR VARIANT 
€ GF THE PASS OP. 


EACH BIT ON COLUMN 1 CEXCEPT BIT 0) SPECIFIES WHETHER A BRANCH 
CAN EE WADE TC THE CODE ADDRESS IN COLUMN 2 FOR A PARTICULAR 
ASSIGNED GOTO STATEMENT. BIT 1 IS FOR THE FIRST ASSIGNED GOTO 
STATEMENT IN THE PROGRAM UNIT» BIT 2 IS FOR THE SECOND ASSIGNED 


COTO STATEMENT IN THE PROGRAM UNIT» ETCETERA. 


IN TRE SAMPLE TABLE? FOR EXAMPLE» THE FIRST ASSIGNED GOTO CAN 


ONLY GRANCH TO TEE FIRST CODE ADDRESS» AND THE SECOND ASSIGNED 
@CTO CAN &BRANCH TO EITHER CODE ADDRESS. THE FCRTRAN CODE TO 


EENERATE SUCH A TABLE MIGHT LOOK LIKE: 


ASSIGN S TO N 
ASSIGN 15 10 I 


GO TO NCS) 
5 ~~ CONTINUE 
10 ASSIGN 10 TON 


GO TO NC10%5) 

ASSIGN 20 TC J 
15 FORMATC 2... ) 
20 FORMATC 22. ) 


faba Wat SATOH 
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STO_INDEX 
VARIANT BITCL) 
INDEX BIT VARYING 
| VARIANT INDEX 
: 0 REGISTER_NUMBER B11C4) 
1 TAG BI1C3) FOLLOWED GY 
ADDRESS BIT VARYING | 
TAG ADDRESS 
0 DIRECT_AOOR 


l INOIRECT_ADDR 
2 PO ADOR 
3-7 UNDEFINED 
ADDRESSES 
DIRECT ADDR —_ 
- LOCAL BLOCK vS. NON“PAGEC COMMOA BLOCK VARIANT BITC) 
IF VAR TANT= 0 » BYTE OFF SET BITCL9) 


THE 19 BITS OF OFFSET ARE IN 2°S° COMPLEMENT. 
IEo» IF LEADING BIT IS ON» TRE VALUE IS NEGATIVE. 


IF VARIANT=1> TV_INDEX FCLLOWED BY | | BITC1O) | 
BYTE CFFSET. BITC19) 
INCEXED_DIRECT_ADDR as 
CIRECT_ACOR BIT. VARYING 
STO_INDEX (CONTENT CONTAINS ELEMENT SUBSCRIPT) BIT VARYING 


CHARACTER_CIRECT_ADDR 


DIRECT_ACOR 


BIT VARYING 


LENGTH (ELEMENT LENGTH IN BYTES) = = = = = = —— BET C&D 
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INCEXED_CHARACTER_DIRECT_ACOR | 
CIRECT_ACOR BIT 


STOLINDEX CCONTENT CCNTAINS ELEMENT SUBSCRIFT) B17 
LENGTH — CELEMENT LENGTH IN BYTES) BITC 
PC_ACDR } 
PAGE NUMEER | BITC 
EYTE OFFSET INTO PAGE | | —— BITC 
INCEXED_PO_ ADDR | a 
PO_ADDR _ | BITC 
STD_ INDEX CCONTENT CONTAINS ELEMENT SUESCRIFT) — BIT 
CHARACTER_PO_ACDR | | te 
PO_ADDR | _* & BITC 
LENGTH CELEMENT LENGTH IN BYTES) | BITC 
INCEXED_CH4@RACTER_PO_ADDR ee | 
PO_ADDR | | BITC 
STD_ INDEX CCONTENT CONTAINS ELEWENT SUESCRIFT) BIT 
LENGTH CELEMENT LENGTH IN BYTES) BITC 
INCIRECT_AOCOR | 
LOCAL ELCCK VS. NON-PAGEC COMMON BLOCK VARIANT BITC 
IF VARIANT=0» BYTE OFFSET. —_ | BITC 
THE 19 BITS OF OFFSET ARE IN 2°S COMPLEMENT. 
IE.» IF THE LEADING BIT IS GN» THE VALUE IS NEGATIVE. 
IF VARIANT=1> TV_INDEX FOLLOWED 8yY | BITC 
BYTE CFFSET _ BITC 
INCEXED_INCIRECT_ADOR 
INDIRECT_ADOR } BIT 


STC_ INDEX CCONTENT OF ELEMEAT SUBSCRIPT | BIT 
APPLIES TO ADDRESS PASSED) | . 3 


CHARACTER_INCIRECT_ADDR a | — 
- INDIRECT_ADOR a Bit 


IACEXED_CHfRACTER_INOIRECT_ACOR 7 
 INDIRECT_ADOR | | , BIT 
STO_ INDEX CCONTENT OF ELEMENT SUESCRIPT BIT 

| APPLIES TC ADORESS PASSED) _ | 


VARYING 
VARYING 
&) 


13) 
19) 
29) 
VARYING 


20) 
8) 


2o) | 
VARYING 
@) | 


1) 
19) 
16) 


19) 


VARYING | 
VARYING 


VARYING 


VARYING 
VARYING 
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CODE_ADORESS 


FILLER CRESERVED FOR FURTHER DEVELOPRENT) 


BIT DISPLACEMENT INTO COCE SEGPFENT 


EXTERNAL CCDE_ ADDRESS (PASSED) 
CODE SEGMENT NUMBER 
ELT OLSPLACEMENT INTO COLE SEGMENT 
FILLER 


REGISTER_NUMBER 


_MEY_ACOR (BYTE OFFSET INTC LOCAL CATA BLOCK) 


INDIRECT DESCRIPTOR 
NON-INGEXED VS. INDEXED VAREANT. 
REGISTER_NUMBER 
IF VARIANT=1L»>. STD_INDEX 


BASIC DESCRIPTOR | | 
STATIC VS. OYNAMIC MEMORY VARIANT 


IF VARIANT=0» BASE“RELATIVE ADCRESS 


IF VARIANT=1» PAGE/OFF SET ADDRESS 
LENGTH | 


ARRAY_DESC_PASSED 
BASIC DESCRIPTOR 
NUMBER_ELEMENTS_ PASSED 


‘CHAR_DESC_FASSED 
BASIC DESCRIPTOR 
FILLER: 


- PO_ALDR_PASSED 
BASIC DESCRIPTOR 
FILLER 
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BIT(6) 
BIT(18) 


BITC14) 
BIT(18) 


BITCL6) 


BITC4) 


BITC20) 


BITC1) 


BITCA)D | 
BIT VARYING 


BIT Ci) 
BLTCL9) 
BITC19) 
BITCe) 


BIT(28) 


BIT(2)) 


BI1T(28) 


BIT(20) 


—BITC28)_ 


B1TC20) 
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STANDARD SOURCE 


STD_ SOURCE 


VARTANT 


SCURCE 


VARIANT 


AMOO Gry Oo@mannuvl wn — © 


BITC4) 
BIT VARVING 


SOURCE_ LOCATION 


INTERPRETER CREATES 
INTERPRETER CREATES 
INTERPRETER CREATES 
INTERPRETER CREATES 
IN LINE 

IN LINE 

IN LINE 

IN LINE 

CIRECT_ADDR 
INCIRECT_ADDR 
FO_ACDR ~ 

UNUSED 
INDEXED_DIRECT_AODR 
INDEXED_INDIRECT_ADDR 
INDEXEC_FO_ACOR 
REGISTER NUMBER 


STANDARD DESTINATION 


STD_DESTINATION 


VARIANT 


BIT(€3) 


CESTINATION BIT VARYING | 


VARIANT 


UE WN HO 


DESTINATION 


DIRECT_ADDR 
INDIRECT_ADOR 
PO_ADOR 
UNUSED 


INDEXED_DIRECT_4DDR 
INDEXED_INDIRECT_ADOR> 
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CONTENTS CSOURCE LOCATICA) 


INTEGER VALUE 
INTEGER VALUE 
INTEGER VALUE 
INTEGER VALUE 
4 IT IN*LINE LITERAL 
19 BIT YTASLINE LITERAL 
32 BIT TAeLINE LITERAL 


WN b&* & 


€4 BIT IN-LIAE LITERAL 


32/64 BIT VARIABLE . 
BASIC DESCRIPTOR 
32/64 BIT VARIABLE 


SAME AS & 


S4ME AS 9 


SAME AS A 
32/64 B17 VARTABLE 
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Ne 6 -- INDEXED_PQ_4D0R 
a 7 REGISTER_NUMBER 


STANDARD CHARACTER SOURCE 


STD_CHAR_SOURCE 


fo VARIANT altca) 
SOURCE BIT VARYING 
VARIANT — SOURCE_ADDRESS CONTENTS (SCURCE_ADCRESS) 
0 INVALID 
1 [INVALID 
2 INVALID 
3 INVALID 
4 INVALID 
5 INVALID 
6 INVALID | | 
7 LENGTHCHITC8)) // IN_LIAE EVTE_LENGTH IN-LINE LITERAL 
8 CHARACTER_DIRECT_4D0R = — CHARACTER 
9 CHARACTER_INDIRECT_AQDR CHARACTER_DESCRIPTOR 
4 CHAR ACTER_PO_ADDR a CHARACTER 
BO UNUSED _ 
c INDEXED_CHARACTER_CIRECT_ADDR CHARACTER 
D INDEXED_CHARACTER_INCIRECT_ACOR ChARACTER_CESCRIPTCR 
E INDEXED _CHARACTER_PO_ACDR CHARACTER 
F INDIRECT_DESCRIPTOR CHAR ACTER_DESCRIPTOR 


STANDARD CHARACTER DESTINATION 


Us | a ee ' 3-12 
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STD_CHAR_DESTINATION 

VARIANT = —s«OB TBD 

CESTINATION art VARYING 
VARIANT DESTINATION i" 
ama maw a . skaletereatnbabatatatetedeiaetatetedetetetetatatal 


— CHARAC TER_ DIRECT_4DCR ~ 
CHARACTER_ INOIRECT_ ACDR- 
CHARACTER PC: 4DCR 
UNUSED kt 
INDEXED_CHARACTER_ DIRECT: ie 
INDEXED CHARACTER INDIRECT. ADDR 

— INDEXEO_CHARACTER_PC_ADOR 
IND IRECT_ DESCRIPTOR | 


NA SW me O 


RUN-TINE DIMENSION TABLE 


AS AN EXAMPLES 


FCR ARRAY ACJ»Ne2)? BAT/BAAT WILL CONSTRUCT: 


SCALE BITC 24) | a 1 BASE_ OFFSET B11(24) 


1 LENGTH 1 LOWER EQUND EIT(24) t LPPER ECUND BITC24) 


fmt eee we em ewan neue eitetektetee tell kite ett ee 

ee | | 
Pte nme en en ee casa naan re ase nme sam omne om anamasnecen nas 

1 <NxJ> Fo ee 

= = 2 ewe  leleatentetetatarietn tate atentakadealaeRatetetateakekotalkakattatataketdatetatatatakedetatakatoakoter 
1 <Ne Se 2> i 


: m@hem man eS oe eh 
- 


aeeeweseeeees ASSUMED SIZE 


LAST UPPER BOUND = MAXIMUM POSSIBLE SUBSCRIFT VALUE. 
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ARITHMETIC REPLACENENT S-OPS 


RARKKKAKSE 


* NOVE * CMOVE SINGLE KORD) 


RREKKAKS 


FORMAT: 
8 BITS VARIES VARIES) 
1 aG1a  STO_SOURCE 1 STC_DESTINATION | 


STO_SGURCE ::= REAL § INTEGER 


OPERATION: 
STD_DESTINATION := STO_SOURCE 


kak ke thkhth 


* OMCVE « CPROVE DOUBLE WORD) 


RkKKKEERE 


FORMAT: 
@ BITS VARIES VARIES 
— | 4022 ft STO_SOURCE 1 STO_DESTINATICN 


THE STANDARD SGURCE IS A OQUELE PRECISION VALUE. 


OPERATION? | 
STD_CESTINATION := STC£_SUURCE 


BURROUGHS CCRFORATION 
COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT 


&RAkKAAKEAE 


* RMOVE « ChHOVE REGISTER) 


&Rkekrekckkaet 


FORMAT: 
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4 BITS 


{ a4 $F REGISTER _NUMBER icoles NUMBER 1 


| OPERATION: 


OP2 


CONTENTS OF OP2 GET CONTENTS GF OF. 


k&k&rk kh ek akh 


# STCRE * CSTCRE RECISTER) 


RAKKKAKKE 


FORMAT: 


1 4052 § RECISTER_NUMBER {| MEM_ADDR 1 


oO eB 2m OR OE BR Oe Be ee ee ew es 


OPERATION: 


ee OF SPECIFIED REGISTER STORED AT SPECIFIED MEM_ADCR. 


EURROUGH 
COMPUTER 
SANTA BA 


k&hkk&hkhkt 


* LOAC 


&Rh&kee kha h 


FORMAT: 


CPERATI 


Ahkkaher 
* MMOVE 


RARER KKK 
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(LOAC REGISTER) 


€ @r's 20 BITS 4 BITS 


a062 1 sae ADDR t REGISTER_ NUMBER 1. 


ON: 
VALUE AT MEM_ ADDR LOACED TC SPECIFIED REGISTER. 


& 


* (MOVE MEMORY) 


& 


FORMAT: 
@ BITS (20 BITS eC BITS 
[ @a07c Ff MEM a ileaes 1 MER ADR f 
oP tl op2 
CPERATION: 


VALUE AT OP1 MOVED TO OP2. 


4m 
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errr 

* ADD * -- 7 | | 

« SUB * {¢ WITH OPERANDS CF STANDARD SOURCE>s STANDARD SOURCE, AND 
* MUL * | STANDARD OESTINATION. | 

* DIV * -- 7 | 


RAKKKKK 


ADD | SUBTRACT MULTIPLY DIVICE 
COUBLE PRECISION Jf OADD DSUB DMUL ODIv 
' 350a aSia a52a 253a 
| | Pomc n nce cn en cnc eee cece eee eeene- ielaatatetabatatatate eoc-e- - 
. REAL i FADD FSUB FREL | FOIV 
a | { 30Ca 2oDa acea | 20Fa 
i] ann aman am aw oe su amamean seannaw aceon ee aae2awnaeananraeanaea2a ee 
INTEGER i IA0D ISUB IMUL IDIV 
1 aoa 29a 20423 aoka 
ee ae ae eee EEE ye ee eS See RR eee ee ae 
FORMAT: _ | | 
_ 4 8 BITS VARIES VARIES VARIES 
1 OPCCDE 1 STO_SOURCE 1 STD. SOURCE 1 STC_CESTINATION | 
ox | OPERANC.1  OPERAND.2 CPERAND.3 
OPERATION: | | 


STO_CESTINATION z= CPERAND.1 Lteeete/] OPERAND.2 


ab ec ade ays alt 
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Rhke kik | a momen ae saw amen ene me 
* ADD * -- | | REG»REC»REG WEMe>MEM,MEM 1 
* SUB * i WITH OPERANDS 1 REGsREG» KEM PEMsREG» MEM 1 
«@ MUL «* | Ch S22 sees e= ee ==> l REG» MEM MEW MEMsMEM,REG 1? 
* DIV * -- WHERE REE IS A i baba data HEM SREG PREG | _ 
kRkkthaeh th REGISTER_NUMBER = tm ttt stent rn cee ene nee cennn- | 

AND MEM IS A 

MEM ADDR. 

ADU | SUBTRACT HULTIPLY _OIVITE 


| | 1 IAMMM alfa § ISMMY Q1Fa ft IM*MM a27a { IDMMY a2Fa | 
MEM>MEMoMEM $F FAPMM 2372 1 FSMMY Q3F oa 8 FMBEMM 2472 | aiid a4FQ t 


1 IAMMR 2162 1 ISMMR a1E2 | IMPMR 2260 1 IDMMR a2ba } 

MEMoMEMeREG ft FAMMR 2362 ! FS¥MEF Q3Ea | FMKMR a46a i Sopinies a4Eo | 
{ a eS See nan aaan a snaoe fr owana ee w= j mE em Oe me eo ee 

. 1 TAPRME 2152 8 ISMRMP aida t IMBERM 2252 1 IDMRP 22Da 1 
MEM»REG>MEM Ff FAMRM 9352 § FSMRM 2302 1 FMYRM 2452 1 FOMRM 2402 1 
Pr Se Trsr ests ss (aoe seer soe (Sse se see eas (Ses <= aun mw ewe = 4 

1 TAMRR 2142 1 ISMRAR QlCa t IMPRR 2242 1 TOMAR 22CQ | 

MEMsREG»REG ¢§ FAMRR 2342 1 FSMRR 23Ca ft FMBPRR 2442 1 FOMRAE 24C32 | 
. j — a we wo enw for nme wet ew een | mee ewan on ewes { = = se a oe See sos 

1 TARMM 21352 1 ISRMM 2182 ft IMRMK O23a 1 IDRMYM a2e@a | 

REGoMEM»oMEM § FARMM 2332 1 FSRMY 2382 § FRRMM 2439 1 FORMNY 3482 J 
pr wt erm eee women [wow onsen eto ea fare nena a nom =e J wen ewan noawe | 

a oe § ITARMR 2122 ! ISRMF QiAg t IMAMR 9222 {1 IORMR a2aqg i 

RE Ge MEM»REG |] FARMR a32qa 1 FSRMR a@34a 1 FMRMR 2422 1 FORMR 2442 1 


4 IARRM ailag ft ISRRM al9z ft IMRRM 22a t IDRRY 2294 1 
REG»REG»MEM 1 FARRM 2312 4 FSRRY 2392 | FMRRM 412 1 FORRM a49a 1 


, { 
1 TARRR aida |! ISRRR 21@2a ! IMRRR 2262 4 IORRA 3202 1. 
REGeREG+REG FT FARRR 23942 1 FSRRR 23382 F FMPRR 34028 1 FORRR 2482 | 


FORMAT: 


' “OPCOLE 1 ADDR1 1 ‘00R2~ 1 ADDR i 


OP.1 —OF.2 OP .2 


4-& 
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CPERATION: | 
CONTENTS CACOR3) 2= CONTENTS CACORI) Cee-seo/] CONTENTS CACDR2) 


Ree eet 
* BUMP « (S8SUMF) 


Rtkk kh ih 


FORMAT: 
e BITS VARIES 24 BITS 
| aaza ot STD_DESTINATION |! LITERAL Ut 


OPERATION: | | | 
(STO_ CESTINATION 2= STO DESTINATION + LITERAL 


WHERE THE ADDITION FERFORMED IS AN INTEGER ADC. 


EURROUGHS CCORFORATION 
COMPUTER SYSTEMS GROUP 
S4NTA BARBARA PLANT 


LOGICAL REPLACEMENT 


Rakka&ERAR 
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CONPAAY CONFIDENTIAL 
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FAS. 


AND IF STATEMENT § 


* TREL * 2582. CRELATION) CSTO~SOQUFCES ARE OF TYPE 


* FREL * a5Aa 
* DREL * 35Ca 


RARKRAREEK 


FORMAT: 
8 BITS V 


! OFCCODE 1 S70. 


OPERATION: 


FCR INTERPRETATION CF MASK, 


STO_DESTINAT 


ARTES 


SOURCE 1 


OP.1 


ION s= TRUE IF OPel RELATES TO GCP.2 IN ANY CF THE 


VARTES 3 BITS 


STD_SOQURCE | vASK i 


€222 2749 (CB) 


“OPS 


INTEGER) 
REAL 
COUBLE 


VARTES 


STC_ DESTENATICN 


SEE "CRIF™ COP 25Ca). 


WAYS SPECIFIED BY THE MASK> OTFERWISE FALSE. 


TRUE = @FFFF 


RAtakk ree th 


FFFFa AND 


FALSE = acccococoa. 


* IRIF « @59a CINTEGER RELATICNAL JF) 


* FRIF * 25828 £4xCFLOATING POINT RELATIONAL IF) 


* ORIF * 25029 (COOUBLE PRECISION RELATIONAL IF) 


ALKKKkKEK 


FORMAT? . : 
_ 8 FITS. 


f OPCODE 7? § 


CPCODE 


VARIES 


TD_ SOURCE 


ene we enm ae @ = 


OPERAND.1 


VARIES 
1 sTo_ cure i 


CPERANE 02 


3 BITs 
WASK 


CP.3 


24 BITS. 


anew aw nan nem 


1 CODE_ADDRESS 1 


—OPERAND.4 


EURROUGHS CCRFORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CPERATICN: 


FOR A MASK OF 
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Pee 


e222 2749 CB) 


THEN BRANCH TO CCOE.4DDRESS IF 


OPERAND.1 LE. 


1 CPERAND.2 
2 OPERAND.1 .GE. CPERAND.2 
3 OPEFANC.1 w£C. CPERANC.2 
4 OPERAND.L .NE. CPERAND.2 
5 GPERAND.1 .LT. CPERAND.2 
6 OPERANO.2L .GT. CPERAND.2 
WHERE CPERANC.2 AND CPERAND.2 ARE CF TYPE 
| INTEGER. IF OP-CCDE IS IKIF » 
REAL IF OP-CODE IS FRIF » 
DOUBLE PRECISION IF OP-CCOE IS CRIF. 
- RaRRREAE . ; 
* LOG * (LOGICAL RELATION) ~ 
kRikk& xk tk . 
FORMAT: - , 
8 BITS VARIES VARIES 3 BITS WARIES | 
1 3602 4% STO_SOURCE | STC_SQURCE 1 LoP 1 STC_CESTINATION 
OPCODE OP.1 OP.2 389 OF 3 CP.4 
OPERATION: 
STO_LDESTINATION z= OP.1 LOP QP.2, 
WHERE LOP IS: 
0 ==> NECY  CEXOR) 
1 ==> AND 
2 ==> OR | 
3 CNOT USED) 
& ==> EQy (NECR) 
5 ==> NAND | 
6 ==> NU a 
7 (NOT USED) 
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tRhhk hha 


* LIF2 * (LCGICAL IF - 2 OPERANDS) 


RAKKKRER 


FORMAT: 
8 BITS VARIES VARIES 3 BITS 24 BITS 
1 a61a 4% STD_SQURCE 1 STD_saURCE 1 LCP. cOce_ ADORESS 
OPCOLE OPe1 GP.2 OF.3 OF.4 
OPERATION: | 


FOR INTERPRETATION CF THE KAS» SEE "LOG" (OP a6Ga). 


BRANCH TO CODE_A4DORESS IF THE RESULT CF COP.1 MASK OP.2) IS TRUE 


RAakxkkekaetk 


# LNGT * (LOGICAL NOT) _ | 3 = | 7 


 RRRKRNKR 


FORMAT2 | 
8 GITS VARIES. VARIES 


f 1622 1 STD_SOQURCE 1! STOC_CESTINATION 


ae nmamnananmonmanen ma neem 2a SB 2 eB8eeoannanesanes een @ a2 2 


OPCODE —OP.L «OP .2 


OPERATION: | a 
STO_CESTINATION = COMPLEMENTCSTO_SCURCE) 
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&Rhkk& kurkh 


* LIFI * (LOGICAL IF - 1 OPER AND) 


RAKKKKAkK 
FORMAT: a 
 @ BITS 2 VARIES 24 BITS 


$ 86342, id Vf STD_SOQURCE rae ALDRESS i 


CPCOCE OP.1 OP.2 OP .2 
OPERATION: 

V=0 ==> IF STO_SOURCE TRUE THEN @RANCH TO CODE_ADDRESS- 

Wel ==> IF STO_SOURCE FALSE THEN ERANCH TO CODE_ADDRESS. 
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BRANCH S-CPS 


Rake haat 


*® GOTC * CUNCOCNDITIONAL BRANCH) 


R2Re&KKRAKE 
FORMAT? 
@ €1TS — 24 BITS 
| a64a st «CODE_ADORESS ¢ 
OP CODE OPERAND «1 


OPERATION: | 
BRANCH TO THE CODE_AOCRESS CDISFLACEMENT INTO CODE SEGMENT). 


KRarakk&kttk 


*# AIF * CARITHMETIC IF) 


thease 
FORMAT: 
8 BITS 1 VARIES 24 E1TS 24 BITS 24 BITS 
‘1 a6£2 ¢ VAR 1 STO_SOURCE 1 CODE_ACCRESS 1 CCDE_ADDRESS 1! CODE_ACDRESSI 
OPCODE  OP-1 OPERAND.2  OPERAND-3  CPERAAC<4  CPERAND-S 
OPERATION: 
IF STD_SOURCE < G THEN BRANCH TO CODE_ADCRESS IK CPERAND.2 
IF STD_SCURCE = 0 THEN BRANCH TO CODE_ADCRESS IN GPERAND.3 
IF STD_SQURCE > 0 THEN BRANCH TO CODE_ADORESS IN CPERAND.4 


VARIANT 
VARTANT 


> STD_SOURCE IS COUBLE PRECISICK; 
> STD_SOURCE IS FEAL OR INTEGER. 


Wooal 
oO 
il Th 
uot 


THE VARIANT CNLY EXISTS SO THAT IF THE FOLLOWING ST AND ARD 
SCURCE IS @ LITERAL» NIP C4N BE ALIGNEC CORRECTLY AT CODE 
ADCRESS AS THE OP IS STEPPED THROUGH. 


672 
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RAKKKKE 


* CGO * (COMPUTED GOTO) 
wvTTTT" 
FORMAT: 
@ BITS VARIES € BITS 24 BITS 2h BITS 
i 2664 I STD_ SOURCE f COUNT f CODE_ ADDRESS eee CODE ADCRESS 1 
CP CODE OPERAND.1 OFERAND.2 CPERANC.3 «.. OPERAND.COUNT 
STD_SOURCE 2= CONTAINS AN INDEX INTO THE LIST GF CODE ADDRESSES 
| «FOLLOWING. 
COUNT ::= THE NUMBER OF CODE_ADDRESS FOLLOWING. 
CODE_ACDRESS := THE ADDRESS TO BRANCH TO. 
OPERATION: 


BFANCH TO THE CODE @DCRESS POINTED 10 BY THE INCEX IN 
STD_SOURCE. : 


Rakk kak 


* AGO * CASSIGNED GOTO) 


Rak aK 


FORMAT: So _ ws | | 
6 BITS VARIES - VARIES = VARIES 


4 a6fa 1 STC_DESTINATION § STC.SOURCE | STD. SOURCE i 


CPCODE OP 61 OP. OP 


QOP.1 POINTS TO A TAELE WITH N ROWS 4ND 2 COLUMNS WHERE (N-1) 
IS THE NUMBER OF UNIQUE LABELS ASSIGNED IN A PROGRAM UNIT. 


BURROUGHS CCRFORATION —— CORPARY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP B1€60/81700 FORTRAN?77 S=LANGUACE 
SANTA BARBARA PLANT | FeSs 2222 2749 CE) 
OPERATION: 


IF THE MOST SIGNIFICANT BIT GF OP.2 IS ZERO 
CSUBBITCOP.299e1) = ©)» TREN THE VARIABLE IS NOT 


ASSIGNED A LABEL AND AN eneOE IS GIVEN. 


IF THE VALUE OF SUBBITCOP e261) IS CREATER THAN THE 
VALUE OF THE FIRST ENTFY IN THE TABLE CFCINTED TO ey. 
OP.1) THEN THE ASSIGNED LABEL IS ACT IN THE TABLE ANDO 
AN ERROR IS GIVEN. | 


If THE OP.3-TH SIT OF THE TABLE ENTRY WEOSE ROW EQUALS 
CP.2 IN THE FIRST COLUMN OF TKE TABLE ECUALS O CSUBBIT 
COF.1COP.201)e0P.3-1) = GC)» THEN THE LABEL IS OUT OF 
SCCPE AND AN ERRCR IS GIVEN. | a 


CTHERWISE» IF NONE OF THE ABCVE CCONCITICAS IS TRUE, 
ERANCH TO THE CODE ADCRESS FOUND AT THE TABLE ENTRY 


RWHCSE ROW EQUALS OP.2 IN THE SECCANE CCLUMN OF THE 


TAELE COP.1COP.202)). 


REFER TO THE FCRPAT SECTION AT THE BEGIANING OF THIS 
COCUMENT FOR THE CESCRIFTION OF THE ASSIGNED GOTO 
TAELE. | 


| | | | 7-1 
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TYPE AND SIGN CONVERSION S-OPS 


RAREKAKKREKSK 


* FLOAT * (CURVERT FROM INTEGER TO REAL OF COLBLE PRECISION) 


RAKRKAARKERRK 
FORMAT: 


@ BITS - VARIES 1 611 VARIES 


{ a54a fH STO_SOURCE #§ VARIANT f SYC_ CESTINATION 1 


es 2 ne YY eS er PT ee >< © a we a om au @ «wan oe me mem 2 es 2 aeuen Beene © 2 a =m ae mm 2 


GFPCODE QPERAND.1 “GPERANDs = 7 CPERAND.3 
OPERATION: 


STC_CESTINATION s= FLCATCSTIO_SOURCE) 


STO_DESTINATICN IS COUBLE PRECISION; 


IF VARIANT = 1 >» 
0 » STO_DESTINATION IS REAL. 


IF VARIANT 


khakk ehh 


* IFIX * (CONVERT FROM REAL OF COUBLE PRECISICN TO INTEGER) 


RkkkKkAK 


FORMAT: : ee 
| @ ETS 1 BIT VARIES VARIES 


Sieteieke itt ee ee ee -—- 2m om a ee meee 6 mm eS 


(Vo a55a 1 VARIANT FE STO_SCURCE 1 STC_CESTINATION 1 
OPCCDOE  OPERAND.1 OPERAND.2 CPERAND.3 


OPERATION: en | 
— STD_LDESTINATION t= IFIXCSTC_ SOURCE) 


IF VARIANT = 1» STD_SCURCE IS DCUELE FRECISIONS 
IF VARIANT = 0» STD_SOURCE IS REAL. | 
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Rkhehakhhh 


# SNGL ® C(CCAVERT FROM DOUBLE TO REAL) 


— RARE 


FORMAT: 7 
| é EITS— VARTES | VARIES 


i 56a 1 STO_ SQURCE 1§ STOG_ een 1 
OPCCODE OPERAND.1 CPERANC 2 
OPERATION: 


STO_CESTINATICN 3:= SNGLOSTC_SOQUFCE) 


khaek he 


* DBL « CCONVERT FROM REAL TO DCUELE PRECISION) 


janeeee 
FORMAT: 
8 B1TS “VARIES — VARIES 
1 a57a =f STO_SOURCE 1! STC_CESTINATION 1. 
OPCCOE © OPERAND.21 «©=—s OPER ANDw2 
OPERATION: | 


STD_DESTINATION := CALCSTC_SOURCE) 


ELRROUGHS CCRFORATION 
COMPUTER SYSTEMS GROUP. 
SANTA BARBARA PLANT 


RAKKKAKAK 


* ABS * (ABSOLUTE VALUE) 


OPERATION :; 


{kkk kak 


STC_DESTINATION = 


* NEG * (CHANCE SIGN) 


khhhk keh 


ee. 


— STO. SOURCE 


OPERAND.2 


Rkhkahkh tk 
FORMAT: 
8 BITS 2 BITS 
1 2682 & VARIANT 
OPCCDE OPERAND ol 
VARIANT STO_ SOURCE 
00 FLOATING POINT NUMBER 
o1 DOUBLE PRECISION NUMBER 
10 INTEGER 
il UNDEF INED 
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VARIES 


CPERAAL.3 


ABSOLUTE VALUE CSTD_SCURCED 


VARIES 


1 cree ' STO_SQURCE 1 


OPERAND.2 


DOUBLE PRECISICN 


SiC_ CESTINATIOCN 


GPERAKC.3 


FORMAT: 
@ EITS  — 2 BITS 
1 a69a 
OFCODE OPERAND «1 
VARIANT = STD_SQURCE 
00 REAL 
01 
10 INTECER 
11 UNUSED 
OPE RATION: 
STC. = 


CESTINATION = 


CSTD_SQURCE) 


1 STC_DESTINATION 1 


a-] 
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SUBSCRIPT VALUE COMPUTATION S-OPS 


ctetat 


* VO * CVALIDATE DESCRIPTOR) 


Rthk eh 


FORMAT: | | : ; 
8 elTS 20 BITS VARIES =—=———_VARTES 


( @8Aa 1 HEM ADOR 1 STD_ SOURCE 1 STC_ SOURCE 1 


OPCOCE OP.1 ELEMENT ARRAY 
LENGTH SIZE 


CECLARED DECLARED 


WEM_ACDR 1S THE @LOCK-RELATIVE ACCRESS OF THE DECRIPTOR OF THE 
ARGUMENT PASSED. THIS DESCRIPTOR DESCRIBES WHERE THE ACTUAL 
ARGUMENT IS» ITS ELEMENT LENGTF PASSED AND THE ACTUAL SIZE 
PASSEC. 


"ELEMENT LENGTH DECLAREC" EQl ¢ IMPLIES @SSUMED-LENGIH. 


"ARRAY SIZE DECLARED" IS THE NUMBER OF ELEMERTS PASSEC IF NUMERIC 
ARRAY» OR THE NUMBER OF BYTES PASSEC IF CHARACTER ARRAY» CR ZERO 
If CHARACTER VARIABLE. IT WILL POINT TO THE THE SIZE FIELD OF 
TRE RUN-TIME CIMENSTON TABLE BUILT EY B47 /B844T IF ASSUMED SIZE Of 


 ALTJUSTABLE SIZE. OTHERWISE IT KILL BE A LITERAL. 


OPERATION: 


@ VERIFY THAT THE SIZE OF THE 4RRAY CECL#RED IS LESS THAN OR 
ECUAL TO THE SIZE OF THE ARRAY PASSEL. © | 


+ WOCIFY THE DESCRIPTOR 4T MEM_ ADDR TO REFLECT. THE DECLARED 
ELEMENT LENGTH. 


ee 
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REKKEEKSE 


* BAT * (BUILD ARRAY TABLE) 


Rthkhkt& 


FORMAT: 


8 BITS 4 VARIES VARIES 


q oere 1 CNT t STO_ ee ee f STO SOURCE € DIM_1 tooet DIM_CNT 1 


OPCODE | TABLE LENGTH 
CNT :2= NUMBER OF OIMENSIONS 


FORMAT OF CIM_#: 


VARIES VARIES 


eon Oe Ge G@enes 2 Owe 82 @ 8 ee @ Et & 2 eS : 


1 STD_SOURCE #§ STD_SOURCE ! 


C LOWER BOUND UPPER BOUND 
P 
~ OPERATION: 


CCNSTRUCT AN ARRAY CESCRIPTOR snwe TRE. REPAINING INFO 
OF THE FORMAT: 


OFFSET — «B1TC32) SEE 1 BELC 
DIM_INFO_1 RECCROL- 
DImM_INFOQ_2 RECOROL 
DIM_INFO_CNT RECOROL 
SIZE BIT(32) SEE 2 BELCh 
WHERE | | RERDONS ERNEST 
an a eae | _#  ——  BET032) 
A_# = A_C#-1)*D_ C#-1) ceuee, ECUND B11€32) 


7 | UPPER_BOUAC BITC32) 
(i # UPPER_BCUND_# | a 
= LOWER_BQUND_#) 


D_# 


1. OFFSET= -(LOWER_BOUND_1 * 4_1 # 2.2. ¢ LOKER_EGUND_CAT * A_CNT) 


3. UPPER_ EQUND_ CNT Is REPLACED EY SIZE /LENGTH 


2» SIZE = 4_ CONT#+1) *LENCTH COR KEAT I§ FASSED If IF “ASSUMED- SIZE) = 
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RAkKkKkRKE 


* BAAT * (BUILD ASSUMED SIZE ARRAY TABLE) 
Rhkk hhh | | . . 7 
FORMAT: 
6 BITS 4 VARIES 20 SITS | VARIES 
TABLE | LENCTH 
CNT = NUMBER OF CIMENSIONS. 
FORMAT OF CIMENSION INFORMATION: 
VARIES VARIES 
1 STO_SOQURCE { STO_SOURCE 4 


LOWER BOUND UPPER BOUNC. 


woven 
SAME AS "BaT™ EXCEPT: 


1.2 MEM_ADOR IS USED TO FEICH EITHER ASSUMEC LENGTH 
AND/OR ASSUMED SIZE> , 


2e IF LENGTH = O» USE ASSUMED LENGTH> 
3e IF DIMENSION COUNT CF UPPER BOUND = Oo USE 
ASSUMED SIZE. 


RirkkK «xn 
® CS ® CCOMFUTE SUBSCRIPT VALUE) 
aAkkeeke 
FORMAT: 
8 BITS 4 VA 20 VA - WA 26, vA 


mneneseee es eee Bee ee weg ©8828 &@& SS 6 wm Gee & we & = ee @2exswee8® we ene ene ee we eneeeaeneeme am ews @ wm « wa 


1 aeCa ! CNT § SLU ML 1 S20 «oes  F S_CNT 1 M_CAT 1 STO_CEST.~ 


mem ROR EE BR ARHSABRHN ASE Be Beata eae ee © 2 @ @ een ean an anwan nnn eanananaa a ee ee | - o- 


CNT ::= NUMBER OF SUBSCRIPTS PRESEN1 


1 a8CaQ tf CNT t STD_LOEST. 1! spake ADOF 1 STC. SCURCE 1 CIM1 teeel CIP ene 


mm Oe OES BOE EMBED BEB EBW SBE Be 2 2 @ ae we - 


j 
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S# 32= STD_SCURCE CSUBSCRIPTS) 


M# s2= SCALE FACTOR 


OPERATION: 


STO_DESTINATION s= Sl *® ML ¢ S2 #® MZ € woo ¢ S_CAT & M_CAT 


RaAkkaxnrne 


* CSB * (CS WITH BOUNDS CHECK ING) 


kRatk&tk kth 


FORMAT: ne | 
 @ BITS 4 VARIES 


i aeeba ' CNT 1 S11 S25 cee 1 S_CAT 1 STC_ DESTINATION 


CPCOCE 
Sa FORMAT: © oe | 
VARIES VARIES VARIES 20 
| STD_SOURCE 1 STD_SCURCE 1 $TD_SQURCE 1 MM I 


mS mee eee ee eee eee ee ee ewan am am am Ge @& eRe hana ne nn 2 mM aw = 


SUBSCRIPT LOWER BOUND CUPPER BOUND SCALE 


OPERATION: 
SAPE AS FOR "CS" EXCEPT TEAT THE SUBSCRIPT 1S CHECKED 


TO VERIFY THAT (LOWER BOUND IS LEG SUBSCRIFT LEG UPPER 
BOUND) BEFORE THE INCEX VALUE IS CCMFUTEC. | 


STC_DESTINATION := SI * WL @ ose # S_CAT ® B_CNT 
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&Khkk kh & 


* CSV ® (COMPUTE ‘SUBSCRIPT VALUE WITE ARRAY 14GLE> CRECK BOUNDS) 


hake eee 


FORMAT: 


8 BITS 4 vA VA oA | vA vA 


{ a@@Fa i CNT t s10_ DEST1 1 <1 152 1 see J SCAT 7 STD_ Eee ' 


CNT 22= 4 BIT LITERAL INDICATING NUMBER OF DIMENSIONS 

$4 ::= STD_SOURCE (SUBSCRIPTS) 

STO_OEST1 IS ADDRESS CF ARRAY CESCRIPTCR AS CESCRIBEO BY “BAT™. 
CPERATION: 


STO_DEST2 t= OFFSET + ( $1 * A_1 # S2 * 8.2 # oo. # S_CNT ® 4 CNT 


SUBSCRIPT BOUNDS CHECKING IS 4LWAYS PERFORMED. 


ELRROUGHS CCRFORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


dias | 


COPPANY CONFIDENTIAL 
g1eco/B1700 FORTRAN77 S“LANGUACE 
F.S. 2222 2749 CB) 


DO-LOOP MAINTENANCE 


&kkh &eaen 


« DO.UP * (DO LOOP UPLATE) 


&Rakkehkkhke 


FORMAT: | | 
@ f1TS 3 BITS VAR VAR VAR VAR 
1  a902 Jt VARIANT 1 7 
OPCOOE OPe-1 OP.2 CPe3 OPe4 CP.5 
VARIANT OP.2 OP.3 OP .4 oP.5 
0 |  STO_INDEX  STO_CEST. STD_SOURCE  CODE_ACCRESS 
1 STD_INDEX STD_SQURCE CCDE_ADCR.  STD_DESTINATION 
2 STD_INDEX STO_CEST. STD_SQUACE  CODE_ACODRESS 
3 — STO_LINOEX  STC_CEST1 CCDE_ADDR.  STO_DEST2 
4 - STD_SOURCE  CCDE_ADDR. -. 
5 - STD_CEST CCDE_ADDR. - 
VAR DC-TYFE LOC FUNCTION 
0 CO 2 I=NoM Top IF CSTO_INDEX GT STO_SOURCE) THER 


2 00 2 T=NeMoL 
% STO_SOURCE=ITER_CNT 
4% REG = CTR_VAR 


STC_CESTINATICN | 
CO TC COCE_ ADERESS 


STD_INCDEX 


END IF 
BTM §$STD_INDEX = STD_INDEX ¢ 1 
IF CSTD_INDEX LE STO_SOURCE) 
* GC TQ CCDE_ADDRESS | 
STD_CESTINATION = STD_INDEX 
TOP IF CSTO_SGURCE LE 0) THEN 


STC CESTINATICN = STC_INCEX 
Go TO COCE_ ADDRESS 


END IF 


92 


BLRROUGHS CCRFQRATION | COPPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP B1EG0/B1700 FORTRANT? S-LANGUAGE 
SANTA BARBARA PLANT ~ | FeS. 2222 2749 (8B) 
3 8 gTM  STD_INOEX = STD_INDEX + STD_OESTACO) 
% STD_INDEX=CTR_VAR STD CEST101) = STC_OESTIC1) - 1 
% STD_CEST1(O)=INCR IF (STO_DESTIC1) GT OD | 
% STD_CESTICL)I=ITER_CNT * GC TO CCDE_*DDRESS 
% STC_CEST2=CTR_VAR STO_DEST2 = STO_IACEX 
4 CC 2 X=AvBoC | TOP IF (STC_SCURCE LE 0) 
2 STD_SOURCE=ITER_CNT * GO TO CCDE_ADDRESS 
5 a TM ot CIR_VAR INCREMENTED SEPARATELY 
2 STO_CEST. =ITER_CNT STO_CESTINATICN = STD_DEST. - 1 
| | IF (STC_CEST. GT 9) CO TO COCE_ACOR. 
6 NOT USED | | 
7 NOT USED 
THE TOP "QOUP™ S-OP IS GENERATED ONLY IF THE COMPILER 


NOTES: 


‘CANNCT OETERMINE WHETHER OR NOT THE OO LOOP WILL EE 
EXECUTED AT LEAST ONCE. 7 | 7 


STC_DESTL IN TKE FORM CF VARIANT 3 IS A 2-ELEMENT ARRAY. 


| 1O-°L 
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SANTA BARBARA PLANT an FeS. 2222 2749 (8) 


CHARACTER TYPE S~OPS 


Rake hake 


* CREL * CCHARACTER RELATION) 


khkekkhhkh 
FORMAT: 


@ BITS VARIES | VARIES 3 BIT ARTES 


| a5—Ea | STO_ CHAR_ SOURCE ! STO_ CHAR_ SOURCE iMSHKE STO_ DESTINATICA i 


cPCODE OPERAND.L CPERAND.2 OP.3 OPERANC. 4 


OPERATION: 


STD_CESTINATION := TRUE IF OPERANC.1 RELATES TO OPERAND.2 


IN ANY OF TRE hAYS SPECIFIEO BY ThE MASK>s 
CTHERWISE FALSE. 


FOR INTERPRETATION CF THE MASK, SEE “CRIF" (OF 25Fa). 


RIGHT BLANK FILL IS ASSUMED. 
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kakakkKRARSE 


* CRIF * (CHARACTER RELATIONAL IF) 


Rhkekh ht 
FORMATS: 


e BITS — VARIES VARIES 3 EIT 24 BITS 


{ qa5Fa f STD_CHAR_SOURCE # STD_CHAR_ SOURCE 1! MSK 1 euvE ADCRESS 


CPCODE OPERANDe1~ CPERANDe2 OP.2 OPERAND.4. 
OPERATION: 
FOR @ MASK OF THEN BRANCH ITC CODE.ACORESS IF 

1 CPERANC.1 .GT. CPERAND.2 
2 CPERANDC.1 «LT. OPERAND.2) 
3 CPERAND.«1 .eNE~s OPERAND.2 
b CPERANDL.~1L «ECs CPERAND.2 
5 CPERANC.L »GEe OPERAND.2 
6 CPERANC.1 «LE. OPERAND.2 


RIGHT BLANK FILL IS ASSUMED. 


RAKRKKEAS 


*# LEN * CLENGTH) 


&RRaeRARKRK 


FORMAT : | 
| @ BITS VARTES | VARIES 


mo: 2 os SB OB SST BMEBRABDaANDaAAR BD KOK nmaeannaane es Seemann @ @ @se 


1 a6C2 { STD_CHAR_SOURCE {& STD.DESTINA@TION 1 


CPCODE. OPERANDe1 ss OP ERAND.2 
OPERATION : 


STD_DESTINATION <:= cHah. -LENGTE CSTO_ Ch4k_ SCGURCE) 


LENGTH GF STD_CHAR_SGURCE IS. RETURNED IN EYTES. 
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RARKRKERRKAK 


* SSTR * (SUBSTRING DESCRIPTOR) 


Rhhkhh kh kt 


FORMAT: 
@ BITS — WARTES VARIES VARIES VARIES 
‘1 ave6a ) STD_CHAR_DESTL t STD_ SOURCE! 1 STO_ SOURCE2 | Last_op § 
WEERE L@ST_OP COULD BE 
EITHER 
VARIES 
1 STD_CHAR_DEST2 | 
OR | | 
3 BITS VARIES 


1 a7a ot STO. -OESTINATICN | 
OPERATION : 
IF LAST_OP IS OF STC_CHAR_DESTINATICN FORY TEEN 
STO_CHAR_OEST2 = STD_CHAR_CEST! (STD_SCURCE1 =: STD_SOUFCEZ)~ 
OTHERWISE » 


Stel DESTINATION = CHARACTER_ CDESCRIPICK OF | | ~ 3 
6: STD CHAR, DESTL CSTC_ SOURCE1 = STO_SOURCE2) ) 


RIGHT emaaien OR ELANK FILL WILL CCCUR. 
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&AkKkKkKRKAE 


* SSTL * (SUBSTRING MOVE) 
RRaKRAKE | 
FORMAT: 
@ BITS VARIES VARIES VARIES VARIES 


emnmnaeaeoeeawneeenm 28 OO OH OW OO Oanwne ew eaeaneesweaeewenae eeagdcannwmweusee eee @ ee OMe eaeenaanwea = @ a -_ o- 


i a772  ! STO_CHAR_SOURCE &@ STD_CHAR_DEST.1 STO_SOURCEL ¢ STD_SCURCE2!I 


CPERATION: 


STD_CHAR_DEST.C(STE_SOURCE1 = STO_SQURCE2) = STD_CHAR_SOURCE 


RIGHT TRUNCATION GR BLANK FILL bILL OCCUR. 


RAKKKALR 


* STC * (STORE CHARACTER) 


KRAKKEKK KE 
FORMAT: 
8 E1TS VARIES VARIES WARIES = WARIES 


fb a/78a § STO_LCHAR_ SOURCE if STO_ cents oe STO_ DEST. STO_ SOURCE i 


OPCODE OPERAND.1 OPER AND «2 OP.3 OPERAND. 4 


OQPERATION: © 


STD_CHAR_CESTCSTOD _DEST > STDL_DEST#STO_ SOURCE) = 
STO_ CHAR_ SOURCE //STO_ CHAR_ SOURCE //STO_ ~CHAR_ SCURCE// 004 


“sto_ DESTINATION 2= STC_LDESTINATION 4 STD_ SCURCE 


ACTION WILL AUTO sTcP If LENCSTC_ acne _DESTINATION) is 
REACHED. 
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Rtaekahet 


# CATO * (CHARACTER CCNCATENATICON WITH DESCRIPTOR) 


RAkk aR 
FORMAT: 


8 BITS VARIES VARIES | VARIES VARIES 


| a7vga it STO_ CHAR_ SRC1 &§ STO LCHAF_ SRCZ I STD_ CHAR _ ut { STO_ DEST 


OPCODE  $OPERAND.1 OPER AND .2 OP.3 CP.4 
CPERATION: 
STO_CHAR_CESTINATION = STC_CHAR_SRC1 // STC_CHAR_SRC2 
AND STD_ DESTINATION = CHARACTER_PO_@D0R DESCRIFTOR OF 


( STD_CHAR_DEST» MIN ( LENCSTD_CHAR_CEST)>» 
LENCSTD_CHAR_SRCL) # LENCSTD CHAR SRC2)) » 


RIGHT TRUNCATION CR BLANK FILL bILL OCCUR. 


kRakk ka 


* MVC * CMOVE CHARACTERS) 


thet kit 


FORMAT: | | 
@ EITS VARIES VARIES 


' azaa 1 STO_CHAR_SOURCE 1 STD_ CHAR_CESTINATION 1. 
"Cpcone.~OPERANDs1SSS”S*S*CPERANDSE 
“OPERATION: 
“STD_CHAR_CESTINATION - STD_CHAR_SOURCE 


RIGHT TRUNCATION OR SLANK FILL 4S NEECED. 


LO-€ 
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&Rrhkk hit a- 
* CAT * (CHARACTER CONCATEN@TION) 


Rank hak 


FORMAT? | | | | 
8 BITS | VARIES | VARIES — VARIES 


OPCCOE Seaman Cicbaee OP.3 
OPERATION: 


STD_CHAR_CESTINATION = STC_CHAR_SCURCEL // STC_CHAR_SRC2 


RIGHT TRUNCATION CR BLANK FILL bILL OCCUR. 
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i | | | SUBROUTINE LINKAGE S-OPS 


Rake bak t 


* SAVE « (SAVE REGISTERS) 


RAakk & RK 


FORMAT: 


1 3602 1 VI NUMBER_TO_SAVE 1 STD_OESTINATICA 1 


CPERATION: 
IF v= 0 S4VE  NDX_REGS #6 THRU ACLENLMEER_TO_SAVE) AT STC_CEST 
‘IF V = 1 RESTORE NDX_REGS #6 THRU #C1+NULMEER_TO_SAVE) FROM STC_CEST 
wkkk kh i 
* LB * (LOCAL BASE) 
kkk ke | 
FORMAT: 

@ BITS 1 BIT 10 BITS VARIES 

1 a6ez f| Oo 1 TV_INCEX ft STO_ DESTINATICN 1 

oR 
@ €1TS 1 BIT 20 BITS VARIES 

| a6€3 1 & § BYTE OFFSET | STD_DESTINATICN | 

CPERATION: 


IF VARIANT = © THEN» 
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STD_CESTINATION = BASE RELATIVE ACCRESS OF LOCAL DATA BLOCK 
) FOR ENTRYCTV_INDEX). 


IF VARIANT = 1 THENs 


STO_CESTINATION := BASE RELATIVE ACDRESS OF LOCAL DATA BLOCK 
POINTED 43 BY CCOE A4CDRESS LOCATED 


AT GIVEN GYTE CFFSET IN CURRENT LOCAL 
CATA BLOCK. 


Rakae#nkarnkh 


* PASS « (PASS ACTUAL ARGUMENT) 


kRrkkzk erat 


FORMAT: 
@ GI1TS 4&4 VWARIES VARIES 
1 a6Fa § Vi SOURCE | REGISTER_CFFSET i 
VAR SOURCE a VALUE PASSED 
oO STO_CESTINATION WORD ACDRESS 
l —STD_CHAR_DESTINATICN ~ CRARACTER_CESCRIFICR 
2 COOE_ACORESS COLE ACDRESS (SEE BELOW) 
3 STD_£RC» STD_DEST ARRAY_CESCRIFTOR CEINGLE WORLD 
7 STD_SRC» STD_DEST ARRAY _CESCRIFTOR C(COUBLE WORC) 
5 STD_SRC» STO_CHAR_OEST CHARACTER ARRAY CESCRIPTOR 
6 STD_CEST»STD_SRC ASSIGNED FCABAT CARRAY_DESC_FPASSED) 
7 STD_SRC>» STD_CHAR_DEST» CHARACTER @RRAY DESCRIPTOR 
STD_SRC» STD_SKC (USEC FOR SUBSTRING) © 
8"F UNUSED 
-CPERATION: 


4 OESCRIPTOR IS CCNSTFLCTED “AND WRITTEA TO TRE 
LOCATION DESCRIBED BY THE RECISTER_OFFSET. FURTHER 
INFORMATION ASOUT THE SPECIFICS CF THIS CPERATIGN AFE. 

DESCRIBED BELOK. ; 


1) WHEN THE VARIANT EGUALS 2+ THE SPECIFIED COLE 
ADDRESS IS OF THE FORM: : | 


ELRROUGHS CCRFORATION 
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PEW ADDR 1 


1 BIT 10 BITS. 


Tv_INDEX | 


WHEN THE VARIANT EQUALS 3 OR 4e THE STANDARD 
SOURCE OPERAND IS TKE ARRAY SIZE AND THE STANDARE 
DESTINATION OPERANC IS THE FIRST ARRAY ELEMENT. 


2) 


WHEN THE VARIANT EQUALS 6 » TEE STANDAFT 
DESTINATION OPERAND POINTS TG THE ASSIGNED FORMAT 
TABLE CCONSISTING OF A ROWS ANCL 2 COLUMNS). REFER 
TO THE FOR¥AT SECTICN 47 TEE BEGCIANEING OF THIS 
COCUMENT FOR A DESCRIPTION OF THE ASSIGNED FORMAT 
TABLE. 


3) 


THE FOLLOWING ERROR CHECKING WILL BE DOCNEs 


IF THE MOST SLENIFIC4NT BIT CF THE STANDARD SOURCE 
OPERAND IS ZERC» THEN THE VARIABLE IS NOT ASSIGNED 
A LABEL AND AN ERROR IS GIVEN. | 


IF THE VALUE CF SUBBITCSTC_SRC+1) IS GREATER THAN 
THE VALUE OF THE FIRST TABLE ENTRY» THEN THE 
ASSIGNED LABEL IS NOT IN THE TABLE AN AN ERROR IS 
GIVEN. 


THE TABLE ENTRY whOSE ROb 
IN THE FIRST COLUMN OF THE 
THE LAEEL 1S NOT & FORMAT 
GIVEN. | | 


If THE ZERO-TH BIT OF 
EGUALS THE STD_SRC 
TABLE EQUALS G» THEN 
LABEL ANC AN ERRGR IS 


THE ARR@Y DESCRIPTOR PASSED 
‘IS CONSTRUCTED WHICH POINTS TO THE FORMAT ADDRESS 
FOUND IN THE ROW EQUAL TO THE STANDARD SCURCE OPERAND 
In CCLUMN 2 CF THE ASSIGNEC FCR®AT TABLE. TRE 
DESCRIPTOR PASSED WILL REFLECT QFFFF2 ELEMENTS AND A 
LENGTH EQUAL TO 7EKO. TEE FORMAT ACDRESS PCINTEO TO 
PY THE OESCRIPTOR IS THE LOCAL BASE RELATIVE BYTE 
ADCRESS OF THE FIRST ARRAY ELEMENT. 


IF NO ERRCR IS DETECTED» 


4) WHEN THE VARIANT EQUALS 7» THE FIRST STANDARD 
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SOURCE «OPER AND is THE = ARRAY SIZE. 


STO_ChHAR_DESTCSECOND STO_SFCSTHIFO STC_SRC) I5 THE 

FIRST ARRAY ELEMENT. TEE SECOND STANLARD SOURCE 
OPERAND IS THE FIRST CR4RACTER ANC TEE THIRD 
STANDARD SQURCE CPERAND IS THE LAST CKARACTER CF 
THE STANCARD CHARACTER DESTINATICN. 


5) THE REGISTER_OFFSET HAS ONE CF THC FORMATS: 


1 BIT 4 


(Oo | RECI 


f 1 BYTE 
ff § LOCAL 


BITS 10 BITS 


STER_NUMBER 1 BYTE OFFSET INTC FOREIEN BLCcK 1 


OFFSET INTO ! BYTE OFFSET INTC FOREIGN FLCCK | 
DATA BLOCK | 


THE BASE-RELATIVE ELT ADCRESS CTHE INDEX) &DCEO TO THE 
BYTE OFFSET CDIRECT_ADOR) IS THE ACORESS CF WHERE TO 
FUT THE 48-8IT DESCRIPTOR. — 


ALL ARGUMENTS ARE PASSEC BY ADCRESS> EXCEPT COLE 
4DCRESSES. IF 8&N ARCUMENT IS FASSED IN THE USER 
PRCGRAM BY VALLE» A COPY IS MADE 4ND ThE ACORESS CF 
THE COPY TS PASSED AS THE ARGUPENT. | 


ELRROUGHS CCRFORATION 


SANTA BARBARA PLANT 


RAakkaean et 


# CALL * (SUBROUTINE CALL) 


kha kh h 
| FORMAT: 
e ils oe BITS 


1  a7da ot Tv_INOEX 1 


OPERATION: 


BRANCH TO EXTERNAL COLE ACORESS 


LO-EIT TRANSFER VECTOR INCEX. 


OvTTT TTT | 
* DCAL « CDYN@MIC SUBROUTINE CALL) 


_ hPhk&ekh Ra 
FORMAT: 
@ ELTS VARIES 


| aria 4 STD_ DESTINATION 1 


Pa OPERATION: 


1ic5 
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SUBFROGR4¥Y ADDRESS IS A 


SAME AS CALL EXCEPT GRANCH TO CCDE_SEGMENT_CISPLACEMEN1 
FCUND AT ADDRESS CONTAINEC IN THE STANDARD CESTINATION. 
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RAREKKEAK 
# RTA *# CRETURND 


khhkk kee 
FORMAT: 


6 BITS 


OPERATION: 


NEXT_INST_PTR := FETURN ACORESS (FRC MEMORY LOCATION i a 
| IN LOC4l DATA ELCCK). 


RETURNS TO ADDRESS SPECIFIED IN LOC4L D4AT@ ELECK. 


KRRaKRAKR 


* SFCL * (STATEMENT FUNCTION CALL) 


azaarkeaxzihr«xz 
FORMAT: 
@ €LTS 1 24 BITS VARIES. 


i 3732 §o ' CQDE_ ADCRESS ' $7o_ DESTINATION i 


Of 


f a732 a1 “ST0_ DESTINATION i ‘STO_ DESTINATICN ' 


WHEN THE ONE BIT VARIANT = 1» THE FIRST STANCARC DESTENATICN 
CONTAINS 4N EXTERNAL CODE 4DDRESS. | : 


~CPERATION: 


STORE NEXT_INST_PTR AS EXTERNAL_ COCE @4CDRESS AT 

STO_ DESTINATION CTHE FIRST OPERAND rere ry: THE VARIANT)» 
THEN BRANCH TO SPECIFIED CCCE ACDRESS CRHENR VARIANT = 0) 

GR TO EXTERNAL COLE ADDRESS CONTAINED ad FIRST STD_ eee 
Cone VARIANT = 1}. 
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RAkKKAKKkKK 


* SFRIN * (STATEMENT FUNCTICN RETURN) 


Shkkhk that 
FORMAT: 


@ €rts VARIES 


= heen eaeseuweastenm men a ws wm ea mee|_m @uam 


1 a74a ot STD_DESTINATICN | 


CPERATICN: 


BRANCH TO EXTERNAL_COCE_ACORESS STORED IN STC_DESTINATICN. 


ee peewes- 7 
* SPAW « CSCRAMELE AND PROVIDE @RGEUMENTS) 


&tzkk ket kk 
FORMAT: | | 
@ BITS 8 BITS. @ aris VARIES 


foa7vsa | APARMS_ TO_ 4DC 7 APORMS_ See { CRCER_ INFO 1 


OPERATION: 


APARMS PASSEC ARE COPIED TGQ 4f& INTERFRETER IMPLIEC 
LOCATION. C#PARWS PASSEC # APARPS TC ADD) 48-BIT 
DESCRIPTORS ARE ZEROED OUT~j #FARAWS_ PASSEC ARE COPIEC 
BACK AS SPECIFIED EY ORDER_INFO. | 


CRCER_INFO IS AN” ARRAY OF WPARWS PASSEC ELEMENTS; 
EACH ELEMENT IS BITC26) AND CONTAINS ADCRESSES WHICH | 
ARE THE LOCATICNS TQ WHERE THE 4&-EIT ARGUMENT 
DESCRIPTORS ARE TC BE WRITTEN. LENGTH OF CRCER_INFO 
IS CAPARMS_PASSEC * 2)). 


terl 
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i -. | SPECIAL FUNCTICA S-OPS 


—RRRKREREK 


* STWN ® CFCRTRAN STATEMENT NUNEER) 


aAaRkkaRaREL 


FORMAT: | 
| | 8 EITS 14 BITS 
= 1 agia | LITERAL | 
CPERATION: - - 


MCVE THE 14-8617 LITERAL TC TRE FORTRAN ae ere NUMBER 
FIELO IN THE BASETLIMIT AREA. 


DEBUG INTERPRETERS bILL ALSO ChECK FOR BREAKPCINT MATCKINC. 


Rhhkhkeairuxn 


“ HMGA © CHARCWARE MONITOR) = eee ONCT VET IMPLEMENTED #e 


Rkkk kik & 


FORMAT: | 
8 BITS VARIES 


i ad2a 1 STD_CHAR_SOURCE 1 


OFCCOE 


CPERATION: 


ISSUE E4CH BYTE OF STD_CHAR_ SOURCE FROM LEFT TC | 
RIGHT AS THE ARGUPENT OF A HARCRARE MCNITGR MICRO OP. 
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PRIVILEGED USER S-OPS 


N GT E = 4LL REFERENCES TO BUFF. CFFSET» SIZE» E2ZFLG» FIC. 
CCOPMMON REFERENCES USED IN IATRINSICS) IACQICATE 
PRECEFINEC LOCATICNS IN MEMORY. TEESE VALUES ARE ACT 
PASSED IN THE OP ITSELF. : 


reer er . | 
* ADOR * CBASE RELATIVE ADDRESS) 


KRAKKKAKS 


FORMAT: | : 
| @ €1TS | VARIES | VARIES 


= = oe aae@2 @® @ @ @ mame es we RM aADaRanDae Man aOawDeaeenenanaenaenanan a 


ot a6 4a i STD_DESTINATION 8 STC_DESTINATICA 3 
Cc ; CPCCOE OP.1 OP. 
= OPERATION: 


OP.2 := ACORESSC CP.1 ) = BASE_RECISTER 


Ranke naakse 


* DESC * CINDIRECT CESCRIPTCR OF NUMERIC ARRAYS) 


pianews 
FORMAT: | 
8 aITs VARIES VARIES VARIES VARIES 
| a6ea 1 ‘STD_CHAR_OEST t STO. SACI I STC_sRC2 | STO DESTINATICH 3 
—aPccoe «OP. OFFSET LENCTH a 
— CPERATION: | 


STD_OESTINATICN := (SEGMENT» DISPLACEKENT» LENGTH) 
DESCRIPTOR OF SUSSTR CSTD_CHAR_CEST» CFFSEV, LENGTH) 


Le PACA RRA Ce RE OREO EUR Renn ENED OO REAR TE RA ROE REEL MRO 
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- | NCTE = STD_CHAR_DEST OESCRIEES THE FIFST SyYTE OF A NUMERIC 
_ FIELO. NU CHECKS 4RE PADE FOR WALI véaLUES CF OFFSET O08 
LENCTH. | 


kthkae kak 


* STC * CSTCRE CHARACTER) 


&tkkaak 


CP CCCE : a7éa 


STC IS ALSO A CHARACTER-TYFE S-OP. SEE CPCCCE a782. ABCVE. 


chee khke 


* COMP * (COMPUNICATE) 


Rikk hth kk 


FORMAT: | : | 
8 BITS VARIES VARIES 
i a7Ca st STD_CESTINATION 1 STD_SGURCE 1 
OFCCOE 
OPERATION: 


COMMUNICATE (10 THE MCP) THE INFCRMATICN WEICH IS 
LEFTCJUSTIFIE IN STAND 4RD CESTIN@ATICN. STD_SCURCE 
INDICATES THE NUMBER OF SITS TO BE CCOMPMUNICATED. 


be Tabet, Agi 
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ch, 


KRaEKkKKAK 
* LCR * (LGAG COMMUNICATE REPLY) 


Ahkakhk &K & 


FORMAT: | 
| 8 BITS VARIES 


t af/Ca § STO_DESTINATIUN | 


GCPCCDE 


| OPERATION: 
STO_CESTINATION := LAST 24 BITS OF THE COMMUNICATE REFLY. 


IT IS EXPECTED TH#T STO_OESTINATICA IS CF TYPE INTEGER. 


Rakk ken 
* TIRE * (PROCESSCR be 


kkkk kink & 


FORMAT: 


i a7fa 1 STD_ DESTINATION i 


OPERATION: 


STD_DESTINATICA := FROCESSGR_TIFE. 


ELRROUGHS CCRFORATION 


CCMPUTER § 


SANTA BARB 


kkk 


* DS *« (Ol 


kRhkekk&*& 


FORMAT: 


YSTEMS GROUP 
ARA PLANT | 


SCONTINUE JOB) 


&@ EITS 
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V4RTES 


a7Fa st STD_CHAR_CESTINATION | 


OPERATION: 


Rahkh kh & 


CPCODE 


CAUSE HOST TG BE ABORTED CIVING THE MESSAGE CONTAINED 


AT STO_CH4R_DESTINA 


TION. 


* WIC * (ChRITE INTECER CIGITS) 


aAakkKK KKK 
FORMAT? 


é 


EITS VARIES 


@2Q0q F STD_SQURCE 


VARTES 


| STO_SGURCE 1 


C 


OPERATION 


PCUCE GP 1 


Ad 
Ld 


WRITES -OP1 Tel P 
CECIMALC( OP1 ) FCR 
EYTES)«— 


LEFT TRUNCATION CR 


RECEFINED MEMORY LOCATION ThE VALUE: 
THE LEAGTH SPECIFIED IN OP2 CIA 


& 


"oO" FILL OCCURS AS NEECED. 


BURROLGHS CCRFORATICN 
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Rahkk khkeh 


 & BNRY * CBIN¢AAY CONVERSION) 


Rakak Rha E 


FORMAT: 


& BITS VARIES 


( a812 ! STO_DESTINATICN 1 


CPERATION: 


WRITE TO THE LOCATION SPECIFIED BY IHE STANDARC 
DESTINATION THE VALUE WHICH IS THE SUBSTR OF 
(ALFF+CGFFSE1 BY &BFRPTR» FOR THE LENGTH SPECIFIED EY 
SIZE). 


BINARY CONVERSION WILL STOP BREN 4 
NON-NUMERIC“AND-NON-ELANK IS ENCOUNTERED. TKE OFFSET 


ANT SIZE LOCATIONS ARE UPDATED TC REFLECT ThE {[NDEX 
ANC LENGTH OF THE FEMAINING SUBSTRING. : 


RaktkkaARKR 


IF &ZFLGE .TRUE. THEN BLANKS. WILL £E TREATED AS 
ZEROES» OCTHERKISE ELANKS WILL EE TREATED AS NULLS. 


* SIGN * (SEARCH FOR SIGN) 


RAKKRKAKS 


FORMAT: 


8 BITS VARTES 


BSE eee eS BeOS weet ad Se mm ae ae 


t 2822 1 STD_DESTINATION 1 


OPERATION: 


REDUCE SUBSTR CBUFFs» OFFSET» SIZE) UNTIL FIRST AEC ™ * 


(BY ADJUSTING CFFSET ANC SIZE).~ 


ON ECS OOs STD_DESTINATION s= .FALSE.s RETURNS ENDS 
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STO_LCESTINATION = CFIRST CHAR) WEG. "3" | 


IF CFIRST CHAR) = "¢" OF "=" THEN REOUCE THE ADJUSTED SUB-STRING 
TG SKIP THE SIGN. : 


STD_DESTINATION WILL REFLECT WHETHER CR NCT A #AINUS SIGN IS FCUND. 


RARKAKKRER 


* REAL * (GET REAL VALUE) 


&tkke&k he titk & 
FORMAT: 
8 BITS 1 elt VARIES | VARIES 


1 @8@3a 8 VARIANT € STO_DESTINATICN ¢ STO_ CESTINATICN | 


CPERATICN: 


CPi s= FLOAT THE BINARY VALUE CF 
SUBSTR (BUFF. OFFSET.» SIZE) 


CP2 z= NUMEER GF CECIMAL DIGITS FCUND FOLLOKIAG THE CECIPFAL FCINT 


REAL VALUE CONVERSION bILL STOP WEEN IT ENCOUNTERS A CHARACTER 
WEICH 15 NONE OF THE FOLLOWING =: #@ CECIWAL DIGIT» A BLANK» A 


CECIMAL POINT. OFFSET AND SIZE ARE UPCATED TC REFLECT 
TRE INCEX ANO LENGTH OF THE FEMALNING SuUB- STRING. 


IF B2FLG TS .FRUE. THEN ELANKS WILL GE TREATED AS ed 
CTHERWISE BLANKS WILL EEF TREATED AS NULLS. 


IF VARIANT = achyia. THEN STC_DESTINATION IS OCUBLE PRECISION 
| ELSE STC_DESTINATION IS SINCLE PRECISION | 
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RARKKXKAKEK 


* NEXT # CEXAPINE NEXT CHARACTER) 


RAkK kak LK 
FURMAT: 
8 BITS e BITS 24 BITS 


| 3a64a 1 LITERAL. | CCDOE_ AOCRES 1 


—GPCCOE OP.1 CP.2 
CPERATION: 


IF (SIZE .EQ. G) THEN RETURN 3 
IF SUBSTR (BUFF +CFFSET+1) £0. OF «1 
THEN DOG 
BUMP OFFSET BY 1 3 
DECREMENT SIZE @y 1 3 
BRANCH TO CCDE_#CCRESS 3 
END 3 | 


SIZE IS THE LENGTH OF THE SUBSTRING REPRESENTED bY BUFF. 


fkhkekkae 


* WEF «* CHRITE E~FORMAT) 


Rtnhkhk &BKR 


FORMAT: 


! 2852 3 STL_SOURCE ! 


CPERATION: 


WRITE TG A PRECEFINEC MEMORY LOCATION IN ErFCRPRAT 
TRE VALUE CONTAINED IN THE STANCARC SOLRCE. 


13-8 
ELRROUGHS CORFORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP BLEGO/H1700 FORTRAN7? S“LANGUACE 


S4NTA BARBARA PLANT | PeSe 2222 2749 CE) - 


RAKRKRKK 


& WRF «x CWRITE F-FORMAT) 


Rtkktkek kik 


FORMAT: 


Qe 81TS VARIES 


§ a@6s I STD_ seaibeks \ 


CPERATION: 


WRITE TO A PREOEFINED MEMGRY LOCATICN IN FrFCRBMAT 
THE VALUE CONTAINED IN THE STANDAFD SCURCE. 


kRhkt ke haRKK 


* FARC * (FETCH AND CLE4R ERROR CONCITION) 


&RaAhkkketk tk 


: see 3 BITS VARIES 


1 ae72 % MASK ¢ STC_CESTIAATION 1 


OPERATION: 


WRITE TO STO_CESTINATION THE VALUE: 
MASK .eAND. ERROR_CONDITION_INFO 


ERRGR_CONDITION_INFC = C(.AQT. #ASK) eAND~ ERROR _CONDITION_IAF 


WHERE ERROR_CONDITICN_INFC 1S 3 BITS CF INFCRMATION LOCATED AT 
A BASE“RELATIVE ACORESS. IT HAS THE SAME FCRWAT AS THE MASK = 


FIRST BIT +: CVERFLOW CONCITICA. 
SECOND BIT = EXPONENT UNDERFLOW CCADITICNH. 
THIRD EIT +s OLVICE-8y-ZERC CONCITICN. 


THE .AND. OPERATICN IS CONE BIT BY Ells 


ELRROUGHS CCRFORATION 
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RnrzAkk kRhk ha & 
« XTRACT * CEXTRACT BITS) 
&A&kKk KKK KE & 
FORMAT: 
@ pits VARIES VARIES VARIES © VARTES 
i ae8s ¢t STD_DEST. | STO. SCURCE 1 STC_SOURCE 1 STO_DEST. 
OP.1 OP.z CP. OP. 
CPERATICN: 
OP.4 := SUBBIT (OP.~1> OP.2» OP.2) 
KRaeaeeRRAKAEKEK 
* INSERT * CIASERT BITS) 
Rkkk RAKES 
FORMAT: 
@ BITS VARIES VARIES VARTES VARLES 
| 2692 1 STO_SQURCE § STD_DEST. & STC_SCURCE 1 STD_SQURCE 
OP.1 cP. 2 GP.2 CP.4 
CPERATION: 
SUBEITCCOP.2s CP.3» OP.1 


CP.4) 25 


on 
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R@ahkkk& hh & 


*# WEF * CWRKRITE I-FORMAT) 


were ee 
FORMAT: 


@ ITS VARIES 


| 2933 § STO_SOURCE | 


CPERATICN: 


WRITE TC @ PREDEFINED MEMCRY LOCATICN IN I-FCRMAT 
THE VALUE CONTAINED IN THE ST@8NCARD SCURCE. 


NCTE : OPS 3942 - aA2a AY ALSO EE USED 4S FRIVILEGED OPS. 
| THEY ARE DESCRIBED UNDER THE SECTICN TRICQNGPETRIC AND 
OTHER FUNCTIONS. | 
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TRIGONOMETRIC AND OTHER FUNCTIONS 


NO TFT Es ALL STDO_SOURCES AND STD_DESTINATICAS ARE REAL. 


ANY OF THESE OPS MAY ALSO FE LSED AL FRIVILEGED OPS. 


RakkARER 


* AMCC * a 


als 


FORMAT: 


8 BITS VARIES VARIES . VARIES 


1 aga 1 STD_SOURCE 1 STO_SOURCE ¢ £TC_CESTINATION 1 


OPERATION: 


STO_DESTINATICN = CPL = CAINTCCP1/CP2) * CF2) 


RA2KRKEKRS 
* SIA * (SINE) 


khkkk kh & 
FORMAT: 


@ €1Ts VARTES | VARIES. 


ft 0952 4 STO_ SOURCE 7 STD CESTINATICN i 


CPERATION: 


STC_CESTINATION s= SINE CF STO_SCURCE 


L4-¢ 
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kkkh ahh 
@ COS * CCOSINE) 


RAKRKARSE 


FORMAT: 


@ ETS VARIES VARTES 


fo 996a 068 CSTD SOURCE | ae CESTINATICA { 


CPERATICN: 


i, 


COSINE OCF STD_SCURCE 


STC_DESTINATION == 
: Rakk& kth | | 
« TAN & (TANGEAT) 
 RAKRKRKEKK 
FORMAT: 
e€ BITS | VARIES | VARIES 
1 a97s 8 STD_ SOURCE 1 STO _CESTINATION 


CPERATION: 


STO_LCESTINATION == TANGENT OF STO_SCURCE 


Rests Rael At Aan AE A ofan! CSS yt chy A a iad s FoR a SFA Raa Nadie wa bar ght fiheek gerbil nae ress eig vine AP le a'afh Ute He GGeTME ot" uhaien taka fo ae feat om “ged ential nM SUE Lai ggg sits ay icin atel ale a Bone ioink Sons hatin abt etek 
Ea aN a a Tan aR URC EER STE ET NN oN TREN SE Or ME A eae ER PEA NCR eM VT PIR RN ee NUTT Pn a cnc ep Re ENaC aT ee 
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Rake kK & 


# SINF * CHYPEREOLIC SINE) 


Rake khkh 
FORMATS: 


@ BITS VARIES | VARIES 


i a98q 1 STO_SOURCE ¢ STC_ CESTINATICN 1 


CPERATIONS 


STO_CESTINATICN 


HYFER@CLIC SINE CF STO_SCURCE 


RAKRKEKAKSK 


* COSH * CHYPERBOLIC COSINE) 


Rairkke &K&KkK 
FORMAT: 


@ BITS VARIES _VARIES 


1 a99a 1 STO_SOURCE 1 STO_ DESTINATION 


OPERATION: 


STC_CESTINATION >= HYPERECLIC COSINE GF SID _ SOURCE 


ELRROUGHS CORFORATION 


COMPUTER 


SYSTEMS GROUP 


S4NT4 BARBARA PLANT 


kRaAkk hk hkaet 


a TANh * 


RAkkhthhkh 


FORMAT: 


CHYPERBOLIC TANGENT) 


8 EITS VARIES 


a9AG 8 STD_ webchat 


CPERATION: 


Rake KEK 


& ASIN & 


Rtkkekeiks 


FORMAT: 


CPERATI 


STO_CESTINATION 


CARCSINE) 


& @1TS VARIES 


i 


a9Ba | STD_SOQURCE 


CN: 


STO_DESTINATION 
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1 S$Te _CESTINATION | 


HYFERBCLIC TANCENT CF STC_SOQURCE 


{ ste _CESTENATICN ! 


ARCSINE OF STO_SCURCE 
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&tthkhkhah 


# ACQOS * CARCCOSINE) 


ARLKRKXAREKR 
FORMAT: 


a elts VARIES — VARIES | 


i a9Ca if STO_ SOURCE PO STC_LCESTINATICN 1 


CPERATION: 


STC_GESTINATION ARCCOSINE OF STC_SCURCE 


Rarkkekthkt 


* ATAN « CARCTANGENT) 


RAKKKREK 
FORMAT: 


@ BITS VARIES VARIES 


1 a9p2 1 STD_ SOURCE 1 sto _CESTIAATION i 


CPERATION: 


STO_DESTINATICON s= ARCTANCENT OF ST1C_SOURCE 


EURROUGHS CCRFORATION 
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Rkkk Rak 


* ATAT * CFLOCR) 


AdkkK RHE 
FORMAT: 


@ BITS VARIES 


CPERATION: 


STD_CESTINATION := 


IF -1 < STC_SQURCE 
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VARIES 


1 ate CESTINATICK 1 


THE INTEGER WHOSE MAGNITUDE IS THE LARGEST 


INTEGER WHICt OCES NOT EXCEED THE MAGNITUCE 


OF STC_SCURCE AND WHOSE SIGN IS THE S4ME 4S 
THAT CF STD_SQURCE. 


< Ll» TKEN STO_DESTINATICN s= 0.0 


AS AN EXAMPLE» AINTC“3.7) = -36¢ 


RARKKAAKER 


* ALCC « (LEG TC EASE e) 
ahkek hhh | 
FORMAT: 


@€ 811s VARIES 


i @9Fa ¢ STO_SOURCE 


CPERATION:S 


—STO_CESTINATICA 


li 


l <TO_ CESTINATICN 1 


NATURAL LOC CF STO_SOQURCE 


BURROUGHS CCRFORATION 
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RKRkkaKKAK 


* ALCC190 * (LEG TC EASE 10) 


Rhee kkk kath 


FORMAT: 


&@ 61TS VARIES 


OPERATICN: 


STD_CESTINATION 


es 
ij 


Rrkke Kk KRKE 


* SQRT « (SQUARE ROOT) 


hakk kik t 
FORMAT: 


@ @©iys VARTES 


OPERATIGN: 


STO_CESTINATION 


ee 
Ni 


i4°7 
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{ STO. CESTINATICN 1 


LOG TO ESE 19 OF STD_SCURCE 


i S¥D_ CESTINATICK f 


SGUARE fCOT CF STD_SOUFCE 
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kKkkekkitk 


* EXP « 


Rtikk eae 


FORMAT: 


CEXFONENTIAL) 


@ GiTS VARIES VARIES 


CPERATICN: 


STD_DESTINATICN := e #* STO_SOQURCE 


x7 
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